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News and Reviews 
by Mike Dunn, Co-Editor 

Last month, | listed some of the things | saw at Comdex in Atlanta. 
This month, | will expand my impressions. | arrived at the fabulous Atlanta 
airport, with its computer-generated voices telling you where to go on 
the comperized automatic trains which run all over. On to the Marriott- 
Marquis, with another computer voiced vehicle — this time a talking 
elevator. Just the thing to get a person in the mood for the huge Comdex 
show. There were 1000 booths and 45,000 people at the show! 

The Atari booth consisted of a section for the Atari and many smaller 
booths for 3rd party vendors — about 30 or so. The emphasis was on 
business and home productivity for the Atari ST, but still much for us 
8-bit fans. Very little in game software was shown, a big contrast with 
the Amiga booth, which seemed to be mostly games, music and art. 
Commordore annouced the first data-base for the Amiga at the show; 
there are many available for the ST. | do not yet have an ST, but am 
impressed with the great enthusiasm of the vendors, the powerful and 
easy to use software, the the very low prices for super programs. Many 
wonderful word-processors, full of features for $40 to $100. Especially 
noteworthy was the Thunder program from Batteries Included (30 Mural 
Richmond Hill, Ontario, Canada L4B 1B5), a real-time quick and powerful 
spelling checker which does everything and more, for only $40. Many 
new products from this Canadian Company who brought us PaperClip 
and Degas were shown. New, expanded versions of PaperClip with a 
spelling checker, in both 8-bit and 16-bit forms, as well as Degas, the 
Isgur Portfolio ($200), and many others. Remember, this was one of the 
few companies releasing Atari software when most had given up — they 
deserve you support. 

Many companies were showing various word processors, spelling 
checkers, file managers and data bases, etc. — last month’s issue lists 
many of them. Atari will be distributing dbMAN, a dBase IIl-alike program 
from Versasoft of San Jose for $150. 

There were several very impressive graphic products looking like they 
will be great fun to have. Hippo (985 University #12, Los Gatos, CA 
95030) and Print-Technik (2, D-8000, Munchen 40, W. Germany) 
showed video-digitizers ($130 to $250) which were very nice. Xlent (POB 
5228, Springfield, VA 22150) had new ST versions of their popular 
Typesetter and Page Designer 8-bit programs, as well as some new 8-bit 
programs including a wordprocessor and many other products. 
PrintMaster (Unison World, 2150 Shattuck, #902, Berkeley, CA 94704) 
showed a nice ST “Printshop” type program. Migraph (720 S. 333rd 
St., Federal Way, WA 98003) had EasyDraw, a very powerful object- 
oriented drawing program, instead of the usual free-hand drawing 
program, and Progressive Computer Applications (2002 McAuliffe Dr., 
Rockville, MD 20851), showed their Graphic Artist program which is 
a combination of a CAD, graphics, free-hand drawing and typesetting 
program for $500. Everything is done through a special spreadsheet, 
and | understand from talking to local people that it does not interface 
with other wordprocessors, but you must do your editing in the built-in 
spread sheet. It does support dot-matrix laser printers, as well as color 
plotters. Avila Associates (3646 Baker Lane, Lafayette, CA 94549) and 
Michtron (576 5. Telegraph, Pontiac, МІ 48053) showed ST Animation 
programs which animate pictures from Neochrome and Degas. Міс топ 
has many other ST programs, mostly utilities, but also some nice arcade 
games — their Time Bandits should be reviewed this issue by 
Jim Bumpas. 

As mentioned in the last issue, many languages from FORTH to 
COBAL, C to Modula-2, PASCAL to FORTRAN were also shown. | 
understand that Atari is not very happy with ST BASIC and is working 
on a major upgrade which may or may not be compatible with the old 
one. Softworks (2944 N. Broadway, Chicago, IL 60657 $80) has an 
Alpha-Micro based BASIC which appears to be very powerful and popular 
with the people in the know. My programmer friends think Modula-2 
by TDI (10410 Markison, Dallas, TX 75238, $80 & $150) will become 
the language of choice for the ST. | 

The most dramatic demos were those of the Atari connected to a 
MIDI keyboard and a professional keyboard. Electronic Music Publishing 
(2210 Wilshire #488. Santa Monica, CA 90403), Hybrid Arts (11920 W. 
Olympic, L.A., CA 90064) and Activision all demostrated their music 
programs. At our last meeting, Bob Cook played the Activision program 
hooked to an inexpensive (under $300) CASIO synthesizer with 
impressive results. These programs are in the $50 range. 

ANTIC! magazine had many impressive products for both the 8-bit 
and 16-bit computers; the full catalog is in the June issue. See the last 
issue of ACE for a partial list of their innovative, powerful and inexpensive 
line. It is definitely worth buying this issue if you don't already have a 
subscription. (POB 1919 Marion, OH 43306 ANTIC! $28year, STart (the 
ST quarterly including a 3% disk of programs, and ANTIC! for $60 year). 


The MindMine (13256 NE 20th #4, Bellevue, WA 98005) was one 
of the outstanding booths because of the wonderful personality of its 
owner, Lee Rahfeldt and his 10 year old daughter, who has the distiction 
of being the youngest vendor ever at COMDEX. Lee is a delightful man 
who makes a 1 Meg ST upgrade, a real time clock module and a custom 
talking doll for your ST — you send them a photo, and they try to 
duplicate it. He is also selling the new MT-FORTH by an old friend of 
ACE and FORTH, Pat Mullarky ($50), originator of the SPACE and APX 
FORTH'S, as well as public domain versions of the 8-bit FORTHs. Paul 
Heckel, owner of QuickView (146 Main St, #404, Los Altos, CA 94022) 
showed his original program ZoomRacks 580, the innovative electronic 
rack and his new book “Тһе Elements of Friendly Software Design" 
published, by all people, Warner Books. Zoomracks is the type of program 
all ST owners should have, | understand. [We still have one copy 
remaining from our group purchase, if you want it for $48 — J.B.] 

Atari was also there, remember, taking up the other half of the booth. 
They showed their new 20-meg Hard Disk for $700, and most of the 
other vendors were using it. They also had their MS-DOS box with 512K 
working; supposed to be ready this summer for $200-$300, the CP/M 
emulator, and their new $219 graphic/ EPSON-like printers. They also 
gave out their new ST Software Catalog, 347 pages of ST software 
for $10. 

As mentioned last month, there were many accounting and other 
business packages their by a number of vendors. 

Abacus POB 7211, Grand Rapids, MI 49510) had a separate booth 
with many ST books. As you know, the ST was released in Germany quite 
a bit before it was here, and is now the fastest selling computer there. 
A team from this company started writing this multi-volumn encyclopedia 
for the ST and translated the books into English. They gave me four of 
them; there are many more announced. I'll report on these books іп а 
separate article. They also had the developer of their PC-Board Designer 
demonstrating this professional level CAD package ($400) which was 
very nice. You first define the components for the board, define the 
connections, put the components on the screen where you want them 
and the program automatically draws every trace and connection of the 
layout on the screen. You then print it out on an Epson-like printer, reduce 
it to half size, and it is camera ready for photo-etching. 

I also had the great pleasure to meet Sig Hartman, and found him 
to be a very warm and friendly person, eager to help user groups and 
willing to listen. Many of the vendors were previous ACE members, and 
it was fun meeting so many old and new friends. 

The main reason for going was to receive the ANTIC! award from 
Jim Capparell. Jim is the publisher of ANTIC! and this was their 4th 
anniversity party, so they decided to give awards. The dinner was well 
attended and a lot of fun. We all had a good time, the awards were 
beautiful, and it was an honor to accept the award on behalf of all you 
ACE members! 





With all this new software out, | imagine that there will be bugs. 
The problem is not the minor ones, but how quickly they are updated, 
how responsive the company is, and if they charge for bug fixes rather 
than updates with new features. | have also heard complaints from ST 
owners about some of the companies; hopefully these are just growing 
pains and not company policy. If any of you have used any of the above- 
mentioned hardware or software, or other new software, either 8 or 16 
bit, we will all love to see your reviews. Send them on a disk, and we 
will return the disk with programs of your choice. [If you can, send them 
on a 3.5 disk in ASCII format (non-WP mode on 1st-Word, or ST Writer 
format. We edit the newsletter on an ST. — J.B.] 


The disk library continues to expand. Please look at the last few 
months of back issues, and see if you might like to order any disks. If 
everyone in the club orders only one disk, our cash flow problem 
will be over — see if you can find something you would like. Jim 
Bumpas will report on the ST library; here are some new additions to 
for the 8-bit machines. They are from other clubs, and have some of the 
same programs in previous ACE disks, but may be updated or better 
documented. 

Thanks to Paul Freeman of B.A.C.E. (Baltimore): 

BACE #28 — Graphics Utilities. A collection of drawing, charactor 
set generators, PMgraphics, and other utlities, including a graphic 
generator for Bulletin Board Systems. $5. 

BACE #39 — A nice Checkbook program. $5. 

BACE #40 — Koala Pictures. $5 

BASE #53 — VT-100 Terminal Emulator — a public domain product 
from Compuserve/ANTIC!. A very nice DEC and IBM 3270 terminal 
emulator which produces 80 column on the screen of any decent monitor 
(not a TV), just a terminal — no downloading, etc. capabilities. Works 
with most modems, including Atari, MPP, AID interface, and 850 
interface. If you need to call a mainframe, this is it! Well documented, 
2 sides, $10. 
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BACE #63 — The Graphics Trilogy. A freeware double sided disk with 
a character generator, a drawing program and a multimode maker. Very 
nicely done — it is doublesided, but since it is a freeware product, there 
is only a copying charge of $5; Tim would like $9 if you like the program. 

BACE #65 — FigFORTH 1.1. The SPACE FORTH we have, expanded 
and documented. 2 sides, $10. 

From S*P*A*C*E (Seattle): 

SPACE #10 — Printer Utilities-a 2 sided disk with many printer 
utilities for most all printers; dumps, print Atari Graphic charactors, 
convert PrintShop or other pictures, etc. $10. 

SPACE #24/25 — TELE-COMM — a double sided disk with many 
public domain communication programs for most modems. Similiar to 
the ACE disk. $10. 

SPACE #27 — Disk Utilities — a double sided disk with a wide variety 


g се tools, copy programs, and some special files for PERCOM owners. 
10. 
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The new edition of David Lien's classic book, The BASIC Handbook 
(Compusoft,535 Broadway, El Cajon, CA 92021, $25) is now out, This 
massive (861 pages) 3rd Edition covers almost all BASIC's available and 
is very useful in trying to convert programs. Unfortunately, it no longer 
has an Atari (8-bit) section like the 2nd Edition had, and nothing on the 
ST BASIC, but does explain what keywords mean in a variety of other 
BASICS. Since ST BASIC is close to MicroSoft, should be similiar to the 
book, but Atari 8-bit is much different — get the 2nd edition if you have 
an 8-bit Atari. 


BUMPAS REVIEWS 


ST: F.A.S.T.E.R. newsletter (c/o Andre Lafreniere, 1161 Des 
Fauvettes, Boucherville, Quebec, Canada J4B 6A8) appears in May, 1986 
with vol. 1 no. 1. This is a very cleverly designed disk-based newsletter 
which is completely integrated into the GEM desktop. All the articles, 
pictures (pictures!), and programs are available from the desktop menus 
when the newsletter program is run. The first issue contains a review 
of the Michtron BBS, a list of software available from FASTER, text and 
program files for TINY TOOL.ACC and BICALC.ACC, among other goodies. 
I enjoy seeing the manner in which they have put together this effort. 
| believe you will, too. 


TIME BANDIT 

ST: TIME BANDIT ($40, MichIron) describes itself as the 
“ultimate” arcade game. It may well be. It's really 16 games іп one, not 
all of which are strictly arcade games. They might more accurately be 
called “arcade adventure” games. You'll find things reminiscent of many 
of the great arcade games of the past: Pac Man, Centipede, Six-Gun 
Shoot-out, Star Trek, and others | don’t know. 16 of them, each different. 
This game also has another amazing feature: 2 players may play 
simultaneously, and may interact on the screen. Play action may be by 
keyboard, mouse, or joystick. | find my 8-bit background makes the 
joystick easiest for me. Minimal use of the keyboard for verbal responses, 
is required. 

Each of the 16 “time gates” send you to a different world with 16 
levels of play. 256 game levels, each with several screens. You may never 
need to buy another arcade game for the rest of your life. This one could 
keep you occupied. 

As you progress up the scale of levels, the action not only becomes 
faster and more ferocious, but in many of the modules additional clues 
will appear and opportunities to use them to solve various puzzles which 
present themselves. | got involved quite a bit with the Star Trek module. 
Finding various objects and carrying them to other parts of the ship to 
get it to working order. Many of the modules have similar action: Coming 
up to something which prevents you from proceeding; finding an object; 
moving it and using it to cross the barrier. 

I can recommend this game to anyone who enjoys arcade adventure 
games. The game is copy-protected, but the documentation contains 
a very unusual description of this protection. It’s an apology! And | believe 
it's sincere. Who ever heard of a software company being apologetic for 
having to protect its software against piracy? Their warranty is one of 
the best in the industry, too: If the disk becomes defective within 30 
days, replacement is free. Any time thereafter, a $5 charge for 
replacement will get you a new disk. 


MUSIC STUDIO 


ST: Music Studio (designed by Audio Light and marketed by 
Activision, $60?) gives one the most power over the music capabilities 
of the ST | have yet seen. The program will also be available for the XE. 
One may use keyboard, joystick, mouse or touchpad with the program. 
Numerous demonstration songs are available for you to play and "fiddle" 
with. 


This program gives you much of the power a word processor gives 
you over text documents. Block operations are simply executed to move, 
copy or delete strings of notes. Blocks may also be used to try out 
different instruments on those chosen notes (you can make instrument 
changes for the entire song, too). 

One may design instruments which are not among the 16 given in 
the program. To execute this feature one is told “ай the dynamics of a 
sound synthesizer are right at your fingertips.” There are three different 
screens full of menus (some of which open new screens; or selections 
уои can make on screen for easy, intuitive access то all the functions 
of the program. 

| am not a musical person at all, but I was able to take a piece of 
sheet music and copy it into the computer and PLAY the piece. It even 
sounded right! The first time! I didn't come across any musical notation 
on the sheet music which I could not reproduce on зсгегп in this program. 
A sweep of the mouse will place or move (or remove) any note or 
notation. Painless music, no years of finger-breaking practice required. 
Of course, those who are dedicated to music will be able to do much 
more with it than me. 

The program will control MIDI compatible electronic instruments, 
or you may use the ST sound chip. You can add lyrics to your song file, 
and a graphics printer (I use an SG10) will print out any music 
composition. This program will be great fun for anyone. Anyone beginning 
a study of music can find this program a magic door into most of the 
intricacies of musical notation and experimentation. Even serious 
musicians may prefer this program for a quick, easy and inexpensive way 
to quickly test out many variations on a theme they may be developing. 


GENIE 


The Atari ST seems to be contributing a lot to the development of 
8-bit software for the XL/XE line also. GENIE ($30, New Horizons 
Software, Box 180253, Austin, TX 78718) seems to be such a 
development. 

Do you envy those ST owners with their desktop accessories? Well, 
envy no more. This program gives XL/XE owners some “desktop” 
accessories of their own. Actually, these accessories reside “under” the 
OS in the unused 16k of the 64k machines. 

While you are inside any other program, a mere 3 simultaneous 
keystrokes away is a Note Pad which can hold more than 100 lines of 
text; a 5-Function Calculator with memory and a choice of calculations 
in hexadecimal or decimal; an Atascii table; and some limited DOS 
functions for file management. 

The manual is superfluous, but well-done and complete. The program 
performs effortlessly and with an intuitive feel which will make you feel 
right at home. There are some limitations: The program will not work 
with any other program which also makes use of that 16k area. Also 
any program which modifies the keyboard handler in such a way that 
the keys used by Genie are changed, will not work. | recommend this 
program for anyone who isn't ready to buy an ST yet in order to have 
some desktop accessories, or for ST owners who also want some 
modern features on their older 8-bit machines. 

— Jim Bumpas 


I'M IN LOVE 


With Atari ST 
(sing to the accompaniment of "I'm in Love with a Wonderful Guy” 
by R. Rogers, but only without Mr. Rogers’ knowledge.) 
I'm as witty as Buchwald and Bombeck. 
I'm as proper as Emily V. 
No more a sage staring down a blank page 
since | purchased Atari ST. 
| am in a perpetual frenzy 
with a perpetual creativity. 
Confidence drums through my fingers and thumbs 
when | write with Atari ST. 
Though I'm trite and as crass as a clerk 
selling brass in a storm door to door, 
quite didactic and stale as a fruitcake, 
| fail to stop turning out more. 
Life is lovely when you are a writer 
and corrections come so easily. 
So, if this sounds strange and a little deranged 
I'm in Love, I’m in Love, I'm in Love, I’m in Love, 
I'm in Love with Atari ST! 
— Sherry L. Beaver 
Eugene, Oregon 


HINTS 


For New Users 
DOUBLE DOS 2.0 (Reprint: LACC, April 1986) 

You can make a double density DOS 2.0S disk with SmartDOS and 
two disk drives. First boot the SmartDOS and format a disk in drive 2 
as double density. Now turn off the computer. Wait 12 seconds if you 
have the 256k mod. Or boot a DOS 2.05 disk immediately if you don't. 
Now, use the H option to write the DOS files to the disk in drive 2. In 
a matter of seconds you will have a double density DOS 2.05. Your 
friends will love it and want the recipe. 


S Tuff 


JUNE INSOFT 

The June, 1986 issue of InSoft (1834 Beacon St., #1, Brookline, MA 
02146) magazine contains a good selection of news, executable 
programs and document files. They are also continuing their series on 
3D projections. They are also organizing a purchasing club. For $50 you 
can join and buy ST merchandise for up to 40% off. Try a double-sided 
drive for $205. Their catalog is also on the disk and contains hundreds 
of items of hardware and software. If you join before July 15, 1986 you 
can get additional discounts. 


TOUCH ME 


Over $2,000 in prizes to be awarded by The Touching Poet, Antic 
magazine, Analog magazine, and Batteries Included. For more information 
about the Atari ST “Touch Ме” Art Contest, write: The “Touch Me” 
Contest, The Touching Poet, 4339 North 39th Street, Phoenix, AZ 
85018, (602) 955-1148. 


ST Library 


New additions this month include two items to the 
Telecommunications disk: XMOTERM.TOS is а smoothly-working 
terminal program which | find very easy to use. ADDRESS.PRG and .DOC 
will keep a list of addresses and perform two kinds out output. You can 
use the program to print address labels. You can also use the program 
as a phone dialer. Two great utilities which appear on the June, 1986 
issue of InSoft Magazine (disk). 

Hippopotamus Software has also provided our public domain library 
with a disk which demonstrates several of their programs for the ST. 
Ask for it if you want to see it. 

We have some disks in our ST library which | find myself using all 
the time. The Word Processing disk contains version 1.4 of ST Writer 
which the Mind Mine people have improved with Atari’s permission. | 
use this program to edit the ACE Newsletter every month. 

The Desktop Stuff disk contains several accessories | keep on my 
desktop all the time, including calculator, ramdisk and calendar. 

| use the VIP spreadsheet for more and more things everyday. Many 
of the templates on our VIPWKS disks are handy for keeping records 
and manipulating data of all kinds. 

If you don't already have these kinds of programs, you'll find your 
personal productivity much improved by their addition to your library. 
By the way, if you contribute a public domain program to our library, 
together with an article describing it, you may have your choice of any 
disk in our library in return. 
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SOLAPAK 


[A response to our SolaPak review] .:. .The disk contains 13 text files 
with over 64000 characters and still does not contain enough detail to 
fully describe all the possibilities of SOLAPAK, nor is it as clear as it could 
be in instructing the novice user. For this reason the documentation is 
constantly being upgraded, mainly due to feedback from users such as 
Mr. Rogers. | 

_..SOLAPAK comes with [installation] templates for 8 popular 
printers and as Mr. Rogers found, like many SOLAPAK purchasers, one 
of these templates is likely very close to that of the desired printer. 
What...has since been added is that you can skip the printer 
customization and do it at a later time. ... 

Mr. Rogers finds it inconvenient to edit a configuration file in order 
to change the size of the ramdisk or some other option. As mentioned 
in the documentation for version 1.0, removal of the definition line for 
an item such as ramdisk size, screen saver enable, and other selectted 
features will cause you to be prompted for the item each time you reboot. 
This eliminates the need to load an editor just to change the size of a 
ramdisk. Documentation now includes a section on usage tips which 
describes these capabilities in more detail than the version Mr. Rogers 
received. 

The maximum number of files which сап be queued waiting to 
be printed is 8. The maximum number of files which can be contained 
in the ramdisk is 128. . .with 32 a suggested default. . .. Most print 
spoolers reserve a RAM buffer for holding a single file to be printed and 
then won't let you use that RAM if no printing is being done. SOLAPAK 
conrtains no such buffer and will print any file which is in its ramdisk. 
When printing is not being performed you have full use of the RAM in 
the form of the ramdisk. 

Contrary to Mr. Rogers’ statement, SOLAPAK can be used with 1st- 
Word. The trouble arising with both 1st-Word and ST Writer is that these 
programs store disk files in their own unique formats. These formats are 
converted automatically to printable form by the programs as they output 
to the printer. Trying to print these unique formats with SOLAPAK 
produces undesirable results. What is both necessary and a nuisance 
is that these unique formats must first be converted to standard ASCII 
files prior to printing with SOLAPAK. However, the pain is eased by using 
the ramdisk as a temporary location for these ASCII files because of the 
speed with which the files can be produced. 

We're glad Mr. Rogers finds the price reasonable. In keeping with 
the motto of ‘Power without the Price” we have offered for sale 3 
functions at an average price of $10 each. In addition our update policy 
of $3 supports our commitment to low cost quality software. 

Sincerely, 

Tim G. Hunkler 

1807 N. Evergreen 
Chandler, AZ 85224 
(602) 899-6992 
CompuServe #76064,1172 


KEYBOARD HELP 


Reprint: WAND, April 1986 
Having problems with your XL/XE keyboard? In particular, is it broken 
(will not type certain letters or numbers)? Well, help is here with a capital 
H. If you have one of these new beasts with its membrane (microwave 
oven) disguised keyboard and it breaks, how іп +];* do you fix it??!! 
Actually the answer is simple. First DO NOT solder (attempt, that is) it. 
It will not solder and you are wasting your time and may even make it 
unrepairable. Go to your local electronics shop. Ask the store if they carry 
“GC” products. In particular, conductive paint. The kind | have is old and 
is actually silver paint (not color — has silver particles in it). The new 
conductive paint must have a different conductor because | paid $10 
for a very small bottle and the new stuff is less than half that price. 
Now the hard part. Find a good friend with a multimeter and find 
the break in the clear membrane. Once you have the break located, paint 
a small amount of the conductive paint over the break. Make sure not 
to paint several traces together. If you do, scrape off the paint between 
the traces and check with the multimeter for shorts. Let the keyboard 
dry for awhile, test it with the meter to make sure it’s fixed, then put 
it all back together. Easy, right? Right! 
— Gerry Stotts 
[WAND editor notes: This repair method is also useful for repairing traces 
on printed circuit boards.] 
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LANDSCAPE 
BY MALCOLM IREDALE 


Those alien invaders are at it agai 
п! This time descending one by one to 
the Landscape below. You can blast off 
and destroy them but you have only 11 
mited missiles and fuel. 


Use a joystick in port 1 to control 
your Ship so that it 15 below ап alie 
n and press the trigger to fire. Avoid 
contact with the aliens and the lands 
Cape at all times as this 15 lethal. Y 
ou egil also lose lives if you allow f 
ive aliens to land or if your fuel run 
5 out, but you can re-fuel by shooting 
the diamond shaped fuel store whith a 
ppears occasionally. This will also ге 
plenish your м1551е5, 


Once all the aliens have been destr 
oyed you must return quickly to base t 
о prepare for the next level. 


8 ПЕН OOS EH 

REM жє 1-8-82, жк 

REM ЭЕ LANDSCAPE ЖҰ 

REM ЖЖ BY #х 

REM ЖҰ M.IREBALE ЖЖ 

ДЕН OGGE ROR 

I-@ 

MS5=17:FL=500:DIM М5 (6472,45 (8) ,В5 (4): 
LY:I:DIFSF 

9 OPEN Hi1,4,8,"K:" 

18 GRAPHICS 1+16:РОКЕ 7527,1:5ETCOLOR 7 
)8, 8: РОКЕ 708,198:POKE 789,218 

18 01 -РЕЕК (560) +756“РЕЕК (561) 

28 POKE DL+7,66 

Ji POKE DL+6,2 | 

32 POKE 87,1:P0SITIOM 4,4:7 HO;"initia 
lizing":GO5UB 32488 

33 GOSUB 23888:РОКЕ 87,8: POSITION 1,8: 
? “FUEL: ";FLSPOSTTION 31,8:7 "MSLS:":M 
5; 

24 POSITION 13,9:? "POINTS: 80000";5C:P 
OSITION 18,1:7 "HI:";HI 

35 POSITION 1,1:7 "Lives: СК OG 

36 POSITION :0,1:7 Hö;"LANDED:0" :POKE 

87,1 

37 FOR 1-0 TO 19: РОЗТТТОМ 1,4:7 Н6:СНР 
5 (ASC (3) -32) ; NEXT L 

39 POSITION 1,8:7 H6;"4 hhhhààyour shi 
р“ 

48 POSITION 1,18:7 #6; "а МЪКчочг MISSI 
le" 

41 POSITION 1,17:7 Н6:"ч ARAAARYyour ba 
се" 


“ч тоол ж ы М = 


LANDSCAPE 


42 POSITION 1.14:7 НБ; "7 AABARARBAbRaIi 
en" 

42 POSITION 1,16:7 Н6;"# КАА Белп 
us" 

44 POSITION 1,18:7 H6:"$ МЪКА I andsca 
ре" 

48 56-8: Ме" hold down fire button to 
start" и БОЗИВ 25908: ТЕ 
5ТЕІбБ (03-1 THEN 48 

68 60508 23900: БОЗПВ 28888 

ЕТ REM EEE EEE EEE 

64 REM ЖЕКК INITIAL REMARK ЖҰЖ 

55 REM ЖЕККЕН 

66 66-5:М5-“4 landscape® by malcolm ire 
dale" "60508 25098 

67 GG=A:MS="Ievel г to + ": 5650508 25088 
:БЕТ Ні,А 

68 IF #-49 THEM DIF-1 

59 IF A-58 THEN DIF-2 

78 IF п-51 THEN ВІР-: 

71 IF 1449 OR й)51 THEN 67 

72 GOSUB 72888:65051в 28888 

82 GG=0:M5=" 

59988 

84 POSITION 5,5:? Н6;" 


“5650508 2 





94. 
ғ 


85 50508 19888 

86 HE-K: ¥Y-¥ 

BE REM HEHE EEE EHEEEESEEEEE 

89 REM ЗЕ MAIN MOVEMENT ROUTINE Н 

за REM Звобвевенеевевенееневеневееие 

188 5-STICK 8) 

191 6-6+1: ТЕ 6-88 THEN 6-8 

182 IF 6-0 THEN POSITION 1,6:7 Н5;",“; 

POSITION 18,6:7 H6;"," 

182 IF 6-78 THEM POSITION 1,6:7 H6;" " 
:POSITION 18,6:7 #5; " 

184 REM CANCEL М515 IF 5781658) -8 AND 
FLAGI=1 AND М528 THEN FLAGI-@:POSITION 
MX, MY:? HO; ":50UND 8,8,8,8:60T0 185 


185 IF STRIG(@}-@ AMD FLAGL=8 AND М528 
THEN Е1851-1:М5-М5-1: МК-К: МУ-У 

186 IF Ғійбісі THEN GOSUB 77811 

187 ТЕ Ғійбісі THEN GOSUB 27811 

189 IF ҒІйб2-8 THEN FLAGZ-1:AY-5:AK-IN 
TCRHB (82514242: LOCATE AK,AY,55:IF 55-2 

2 THEM FLAG2-8:G0TO 112 

118 IF FLAGZI1 THEN GOSUB 27588 

112 ЕСЕН(5-72-652112 + (5-6) + (5-53 - (5-16 

3- (9297 F YY? {5217} ~ €3=143 — 05-67 - 152103 
+(5-9)+ (5-5) 

iig IF К<@ THEM К-19 

114 IF К219 THEM K=Ø 

115 IF Ү<7 THEM Y=7 

115 IF Ү222 THEN Y=22 

118 FL=FL-((DIFAZ2)-1):IF FLYSØ THEM FL 
IØ:C=i:G6G=3:M5="y0u ran out of fuel 

";GO5UB 25088:G05UB 24988 


5 


128 LOCATE Е,Ұ,5РП5:10САТЕ K,¥ti1,0:1F 
$P064332 THEM SOTO 24088 
135 REM 
126 IF 0-22 THEN 00-1 
127 IF 64232 THEN SOUND 1,8,8.8 
148 POSITION К,Ү:7 ЯБ: "АТР 55215 THE 
H POSITION ЖЯК,ҮҮ:? НЫ; ғ; 
141 IF 00-1 THEN BR-@: POSITION M.Y¥ti:* 
н6;“ и: SOUND 1,25,0,6:POSITION K,YTL: 
2 pipun n 
145 HNIM:VYSY 
158 GOTO 188 
17999 RER FOGN OGGE 
189080 REM 006 МО LIVES LEFT ЖҰЖ 
18881 REN OGGE 
18094 FOR VIG TO 3:50UND V,B,B,9:NEKT 
9 
18885 Ісі | 
18818 POKE 87,i:66-5:M5-"" sorry but ye 
u have 1051 all your lives" 
":6050B 75098 
18811 IF SC}HI THEN GG=5:M5-""yu0u have 
attained a new high score" 
":60508 75988 
18812 IF 5С<НІ THEN GG=S:MS-'""uou did 
not manage to reach a new high score" 
"1.605068 25888 
18815 IF 5СОНІ THEN НТ-5С 
18816 GG=5:MS=""press fire button for 
another 40" ":)21:505ШЕ 
25888 
18817 IF STRIGC@}-1 THEN GOTO 18816 
18878 19-1:Е1861-8:71й07-й:М5-17:Е1-50 
8:5C-@:LNB-O:POP :GOTO 34 
18999 REM EEE EEE EE EEE 
19888 REM 906 INITIAL SAUCER Р05, ЖҰЖ 
19991 REM GOE EE EEE EEE EEE 
19й1і8 KIINTERNDEGIML7ITL 
19878 FOR K=23 TD 18 STEP -i 
19828 LOCATE K,K,LL:IF ІЛ 4222 THEN FOS 
ITION Х,К-2:7 НЕ" 4": Y-K-2:POSITION Ж, 
К-1:7 НБ: СНЕ АЗС EC) -32) : RETURN 
19848 НЕХТ КНЕТШЕН 
сарай БЕМ EGGE EEE ннен 
728801 REM ЖҰҰСНЕСК FOR SAUCER HIT 
29207 REM EEE EEE EE 
28818 IF 5Р05-8 THEN GOTO 135 
728811 IF 5Р05-26 OR 5Р05227 OR 5Р05-38 
OR 5Р05-39 OR 5Р05-164 THEN К-КК:У-УУ 
:С-1: 5650508 24808:G0T0 135 
28815 IF 5P05-15 THEN GOSUB 21000: 650Т0 
135 
28816 С-1: НТ-НТ+1 :5050В 24888:6070 135 
GOTO 294702 
REM ae EEE EE 
REM ЖҰ SAUCER ON BASE ЖЖ 
БЕМ EGGE EEE 
IF НТ) 14 THEM GOSUB 275858 


28828 
20993 
11888 
21881 
21887 


21818 Х-КК:Ү-ҮҮ: ВЕТЦЕМ 
27900 REM ӘБЕКЕ 
73081 REM ЖЕСІ РАВ BOTTOM OF SCREEN 
21882 REM ӘНОӘНӨННӘНЕННек нын 
23818 POKE 87,1:FOR H6 TO ZZ:PO5ITION 
а,н:?7 #6;" "> МЕХТ 
И: RETURN 
21999 REM ЖЮВОЕОВОВОНВНЕВЕВОНЕК 
24080 REM 006 LIVES UPDATE ЖҰЖ 
24801 REM женени 
24882 ҒІ-580:М5гі?:РОКЕ 87,1: РОЗТТТОК 
HY:7 tos" "": FOR 0-8 то 28:500ND 8,25, 
8, 15: МНЕХТ @:S0UND 0,0,8,8:10=10-1 
24803 РОКЕ 77,0:50UND 2,0,8,8: 50000 1, 
#,8,8 
24804 Н51-28:ҒІ-588 
24885 IF 19-2 THEN Е1451-8:714А62-8:65- 
51:М5-44 you have just lost a life" 
“; БОЗИВ 25888 
24006 IF 1 9-1 THEN FLAGI-Ø:FLAGZ-Ø:GG= 
5:M5-'"" you have just 1051 another life 
қ ":с0508 25808 
24097 IF 10-1 THEN М5-!4 you are now on 
your final life" н:505 
ИВ 25888 
24808 IF 10-0 THEN 74013 
24009 IF HT>=14 THEN GOSUB 24050 
24818 IF С-1 THEN С-8:50508 21000: 6050 
В 28888:505ИВ 1989988: РОЗТТТОМ 3,5:? #6; 
<<< a носа: о05пв 24050: 60Т 
0 24812 
74811 GOSUB 228808:65051В 1299898: РОЗТТТОК 
3,52? ЖЫН n:i NRA: 60508 
249850 
24012 IF 10-7 THEM POKE 87, В: РОЗТТТОМ 
1,1:7 "Lives: СГ“; : РОКЕ 87,1: ПЕТИВМ 





24813 IF 19-1 THEM POKE 87, 8: РОЗТТТОМ 
1,1:2 "Lives; í "2 POKE 87,1: RETURN 


24014 IF 194-8 THEN POKE 87,8:POQSITION 
1,1:? “Lives: ZERO ";:POP :5070 18888 


74848 REM SRR 

24058 REM ЕК SCORE UPDATE ЖҰЖ 

24851 REM ЭЖенекнекевненненнекек 

24068 A5-"00000":AS(6-LENISTRS(5C)3)=5 
TRS (ъс) 

74855 85="900": BS (4-LENCSTRS(FLIIJSSTR 
5 (1) 

24878 POKE 87,8 

24875 POSITION 721,8:7 AS:POSITION 36,0 
22 M5;" "POSITION 5,8:7 BS 

24875 POSITION 38,1:? H6;"LANDED:":LMD 
:IF 1Ң0)-5 THEM LND-Ø:C-1:G05UB 24000: 
RETURN 

24088 POKE 87,1: RETURN 

24998 RETURN 

24999 GOTO 24999 


LAND CONT 


25008 REM 
25881 REM 0 SCOLL BOTTOM LINE WEHE 
25983 REM 
75004 FOR 1-1 TO LENCMS) 
25005 IF 17-152 THEM F=F+1 
25818 POSITION 17-14Ғ,23:7 HO;MSCItF,L 
2 
25815 FOR 5-8 TO 65: МЕКТ G 
25028 NEXT L:F-@:RETURN 
25047 ВЕН ЭНКННЕННЕНЕЕЕЕЕЕЕННЕЖЕк и 
25848 REM ME5AUCER OM BASE MESSAGE 
21849 REM GE EEE EEE НЕНЕН 
25058 Ғі-588:М5-12:Ғ08 I-@ TO 3:50UND 
1,8,8,8: НЕХТ I:GOSUB 24858 
25055 ТЕ HT>=14 THEN GG=3:MS=""well do 
ne! you are going up a level" 
"605508 25008 

25056 ТЕ HT>=14 THEM IF DIF$3 THEN DIF 
IDIF+1 
25059 ТЕ НТ? -14 AND DIF=2 THEN GG=3:M5 
с? you are now on skill level two" 

=: БО5ИВ 25888 
25858 ТЕ HT>=14 AMD DIF=3 THEN GG=3:M5 
Z" uoy are now on skill level three" 

":60580B 75888 

25061 ТЕ HT>=14 THEM HT=-B:GDSUB 273008: 
MSL-3Ø:FLISBØ:LMD-Ø:POP :G050B 19888:6. 
ото 78 
27888 REM MHSALICER MISSILE MOVEMENT 
27011 МҮ-МҰ-і:ІҒ МҮ<=5 THEN FLAGI=Ø:PO 
SITION MH,MY+1:7 H6;" ":50UND 2,8,8,8: 
60508 24858: RETURN 
27012 SOUND 2,25-MY,8,15 
27814 LOCATE MX, MY, MPO5:IF MP05-32 THE 
N 27928 
27915 GOSUB 277808:ІҒ MPOS-A5SCC',"3 THE 
N М5-12:Ғ1-508:5С-5045808:6-19 
27816 IF MPO5-ASCC'-"3-3J2 THEM 5С-5С41 
#8: НТ-НТ + 1: FLAGZ2—-8:FLAGI-B8: 50ND 2,8,0 
; В: G050B8 24858 
27828 POSITION MM,MY:? t6;CHRS (9) :POSI 
TION MX, MY+1:? Hju" 
27025 IF Ғійбі-8 THEN POSITIOM МК, „МУ:? 
He; = 
27050 RETURN 
27288 POSITION МХ,МҮ:7 НБ; СНЕ САС се 
2-22) 
27278 FOR H-1 TO 28:50UND 2,45-Н,8,15: 
NEXT H:POSITION WH, MY:7 H6;" "RETURN 








27388 POSITION К,Ү:7 HG;CHRS CASE ENF") - 
323 

27328 FOR Н-1 TO ZØ:S0UND 2,46-Н,8,15: 
NEET H:RETURM 

27499 REM кек 

27508 REM HALTEN MOVEMENT Зее» 

27581 REM ЭЭНВННННННЗННННННННННЕ 

27585 AAY-AY:AYSAY+L 

17518 LOCATE AK, AY, APUS 


6 


27578 IF пр05-16 OR АР05-27 OR AP05=38 
OR АР05-59 OR APOS-15 THEN POSITION Å 
Ұ,йҮ-1:? HO" "IFLAGZIØ:FILINTSHT+L 
27522 IF Fri THEN Е-8:1 н0-1 мр+1 : SOUND 
8,50,8,15:POSITION AX, AY-1:7 Н6;"+":60 

508 24059:50UND @,8,0,8:POSITION AK, AY 

-1:7 H6;" “RETURN 

27525 IF йР05-й5С()%3-32 THEN Е1451-8 
:FLAGZ-G:POSITION AK,AY:? HG;" ":MYSMY 

-1:60508 27200:50UND 2,8,8,8: НТ-НТ+1 

27526 IF APOS=ASC("1")-32 THEN 60508 2 

4858: RETURN 

27528 POSITION AK,AY:? Hö; T" POSITION 
AK, AAY:? Нб; "RETURN 

29999 REM заавевевеванавевюз 

38888 REM HEX LANDSCAPE ЖҰЖ 

38881 REM ЭНННННННННННННННЕ 

58882 НТ-й 

10055 У-ТНТ(СЯМО (8) 326) +11:К--1: УУ-28 

30856 FOR 0-8 TO 19 

38857 IF ҮҮ-ү OR ҮҮ)-22 OR чу<-7+((4-0 

IF}¥I} THEN К--К:Ү-ІНТІНН0(0)%63413:0- 

ае! 

38858 YY-YY+K 

$8860 IF К--1 THEN POSITION D,YY:? #6; 

CHRS (INT (RND(8J%2)+36) :POSITION р,ҮҮНІ 
:? НБ: "Н:РОЅІТІОМ D,YY-1:7 и6;" " 

28878 IF К-1 THEM POSITION D,YY:? н6;С 

HRS CINT CRND (9) #234383 : POSITION D,YY+L: 

2 #6; Без POSITION D,YY-1:? H6;" " 

38880 МЕНТ 0: RETURN 

32408 REM НЗННННННННННННННННННННННеЕ 

32401 REM ЖҰҰСНАВАСТЕН DEFINITION 

32402 REM зазевевеевевевевеневевенеже 

32428 POKE 105,РЕЕК (1867-8 

22458 Р-РЕЕК(186) 

32457 M-P*256 

32434 L=1023:FOR М-8 TO 1927:L=L-1:P05 

ITION 9,5:7 H6;INTIL/30);" "IPOKE NIM, 

PEEK (57144+М) : MEXT М 

52415 POSITION 3,5:7 HO;" "POSITION 

4,4:7 H6;" energizing ":FOR 454 TO 15 

32456 FOR М-8 TO 7:READ D:POKE NMH JH 

8) 0: НЕКТ М: NEXT J 

32635 POKE 756,P 

32636 RETURN 

32627 REM заввевеавеввеваавевевевевенее 

32638 REM DATA FOR NEW CHARACTER 

22529 REM ЖЕКЕ 

217548 DATA 9,94,235,72,808,96,64,178 

32647 DATA 1,2,4,8,16,32,64,128 

32644 DATA 144,122,55,18,18,6,2,1 

32646 DATA 128,64,12,16,8,4,2,1 

32648 DATA @,24,126,255,126,36,36,8 

37558 DATA 8,8,24,24,24,24,24,8 

32652 DATA 8,08,8,8,284,284,51,51 

32654 DATA 42,148,75,186,92,146,41,84 

32656 DATA 16,40,68,146,68,48,16,8 

32658 DATA 8,138,146,178,214,178,146,1 

38 

22659 DATA 16,40,40,84,84,170,84,8 

27658 DATA 255,255,129,66,26,24,92,231 





NUTTY 


NUTTY 
by Andrew Starkie 


Nutty іс а good name for this gamei 
Not only do you have to catch falling 
nuts but the game title- Squirrel on a 

Pogo Stick- has to be one of the nutt 
1251 around! 


The object 15 Simply to move Your 54 
uirrel right or left to catch falling 
nuts. YOu lose a life each time you al 
low a nut to fall to the Е1оог, 


Hopefully this little program will 4 
ive you соме ideas for writing your ow 
n Simple games without getting into th 
е complex Programming areas. It's Simp 
Te but it's still fun. 


REM EE EEE EEE 

REM Ж SQUIRREL OM Å POGO STICK, ж 

REM Ж BY ANDREW STARKIE . 1984, # 

REM ж J.D, + 

КЕМ HE EEE DENE EE EDER 

08-й:01-1:03-2:0424:05-5:06-6:07-7:0 

9-9:018-18:011-11:012-8:018-18:021-21: 

024-34:078-708:0185-186:0255-256 

3 0279-52279:0588-508:0559-559:0756-75 

6 

18 GRAPHICS 09:7 "BLACKOUT COMING LP": 

FOR A-Q8 TD 0590: МЕКТ Å 

ii POKE 186, PEEK (1063-5:5T= {PEEK ¢i96)+ 

114256 :POKE 559,8:G05U8 49:GRAPHICS 6: 

РОКЕ 559,34:РОКЕ 756,5T/256:KN=51T/256 

12 ? "TMITTIALISING.. ZAKK: TU 

5555Ңе"::6505ШВ SL:FOR A=08 T 

0 1989: МЕКТ Å 

15 GRAPHICS 018:РОКЕ 0756,5Т/0256 

16 7 HRG "SQUIRREL ON å POGD":7 HaG:" 
STICK":? HQ6:7 но6;" BY": 

? #06;" ANDREW STARKIE" 

17 FOR Р5-8 TO 18:POSITION Р5,18:? 5; 

CAU POSITION Р5,11:7 H6:"B":ForR ara TO 

?98: НЕКТ A:POSITIOM Р5,11:7 #6; "т" 

18 FOR A=Ø TO 70:NEHT A:POSITION Р5,01 

1:7 #6;" "IPOSITIOM Р5,018:7 HAS” "ен 

ЕКТ PS 

19 POSITION 04,010:7 н06; "РВЕ55 Start" 


п Pm ed poi һе 


R 


28 POKE 0279,08 

21 IF РЕЕК (02797 5206 THEN 21 

22 POSITION 04,018:7 #06;" O.K. в 
:DIM Р0505 (07): ОРЕН HO1,04,00,"K:" 

23 REM 

24 POSITION 01,018:7 HO6;"DIFFICULTY I 
1-3)" 

25 GET Н01,0:0-0-48:ІҒ 0501 OR 0902 TH 
ЕҢ 25 


26 LEY=0 

27 FOR й-08 TO 0588:МЕКТ A:MUTS-08:iI- 

07:70608-" н" 

28 GRAPHICS 018:РОКЕ 0756, КК: POSITION 

08,08:7 ноб: "NUTS=":NUTS:FOR AZLI та 9 

1 STEP -Q1:POSITION 28-0,08:7 НОБ; чин; 
: НЕХТ à 

29 POSITION 08,011:7 HO6:"..........., 
cesessss"}!SQ=Q1@:POQKE 0559, 024 

38 POSITION 50,09:7 HOG:"Z":PASITION 5 
Q,018:7 Hog ти 

х1 MT=INT CRND (08) 4018) +01 :METBRP=01 

12 ST=PEEK(532) :POSITION 09,00: н06:"“ 
nuts ":NUTS ' 
24 IF 519)07 AND 57000141 THEN FOR асйа` 
TO 018: НЕКТ A:GOTO 37 

35 IF 57-07 AND 504018 THEM 50-50401 

36 IF 57-011 AND 50)01 THEM 50-50-01 

37 POSITION MT,NUTDRF:7? нов; ":POSITI 

ON NT, NUTDRP+01:7 HOS: "Ен: нитовр-нитоя 

P+0. 298 ЕФ 

18 POSITION 50-01,09:7 н06:" У ":розтт 

ION 50-01,010:7 #06;" 3 v:IF пнрсовуув 
‚5 THEN POSITION 50-01,018:7? #06;" В“ 


ғ 


39 IF MUTBRP<Q7 THEN 22 

48 IF МТ-50 THEN MUTS-NUTS+1:50UND 8,5 
G,18,10:FOR А-0 TO 18:МЕКТ A:SQUND 6,4 
28, 8: РО5ЗТТТОМ 50,8:7 HO; "POSITION 5 
Q,7:7 ИБ; ":60Т0 31 

41 POSITION МТ,8:7 н6;" “:PQSITION NT, 
10:7 H6;"E":SOUND 8,255,17,15:Е00 А-0 

TO 33: НЕКТ A:SOUND 8,8,8,8:POSITION NT 
1857 #6;" "iLIZLI-i 

42 POSITION NT, 07:7? H6:" "POSITION 19 
-11,00:7 Ha6;" н 

44 IF 11-00 THEN POSITION 05,05:7 НОБ: 
"TERM" POSITION 04,07:2 HOE: "PRES 
5 TOR Te 

45 IF 11208 THEN GOTO 021 

46 POKE 0279,08 

47 IF РҒЕЕК(027914%206 THEN 47 

48 GOTO 27 

43 FOR A-O8 TO 18277:РОКЕ 4451, PEEK (573 
44+4) :MEKT A: RETURN 

31 FOR й-24 TO GJ:READ В:РОКЕ 5Т+А,В:Н 
ЕКТ й: RETURN 

52 DATA 124,124,124,124,56,16,16,16,12 
4,124,56,56,16,16,16,16,192,192,216,21 
2,252,248,248,69,0,60,118,78,94,176 

54 BATA 58,8,255,255,й,255,255,8,255,2 
55 


: GIVEN Å FILESPEC РАВ5Е5 OUT 


‹ 
z 
2 


BYTE FUNC PARSECBYTE ARRAY 51,52,52) 


FITHER 


; THE DEVICE, МАМЕ, TYPE, OR MAME. TYPE 


і -- RETURN STRING POINTER 
-- FILESPEC POINTER 
-- COMMAND POINTER 


ы іл hj) 
ғ Ред 


STATUS COLON, PERIOD, LENGTH 
STATUS=8 

СО ОЙ ТИРЕК (57, "1:13 
PERTOD-INDEX (57, ", "7 


LENGTH=SZ(Ø) 


IF @HCOLON AND BHPERINE AND анг ЕМСТН 


THEN 


IF Е05 (51, "PEVICE") THEN 
РЕТИТЕ ("ТМ ,57Е%,53) 
SCOP ¥S€51,57,1, COLON) 
PRINTE (51) 
ELSEIF Е05 (54, "НАМЕ "3 THEN 
РЕТИТЕ ("ТМ £54E",53) 
5С0рү5 (51, 57, СОЕ ОН+1, РЕРТОР- 13 
PRIMTE (51) 
ELSEIF Е05 (51, "TYPE") THEN 
РЕТИТЕ (“ІН Х5ХЕ", 533 
SEOPYS (51,52, PERTOB+1, LENGTH) 
PRINTE (51) 
ELSEIF Е05 (51, "ВОТН") THEM 
РЕТИТЕ ("ТМ #52Е",51) 
SCOPYS (51, 52, СОГОМ+1, LENGTH) 
PRINTE (51) 
ELSE 
PRINTE C ERROR IM PARSE, Вар COMMAND 
442 
ҒІ 
STATHS=1 
ELSE 
PRINTEC"ERRGR ТМ PARSE, BAD FILESPEC 
43 
FI 


RETURN (STATUS 


MANDELBROT SET 


5 REM SCRENLOD.LST 

6 REM REF COMPUTE OCT 85 Pia 

7 REM MY VERSION... THERE I5 

В REM Å SAVE PROG TO GO WITH 

9 REM THIS.... 

18 REM SCREEN LOAD ROUTINE SETUP 

i5 CLR 

28 DIM ASC15),CREG(9) :MODE5=208:NAME=S 
88: SCRENLOAD=17208 

28 FOR й-1516 TO 1542 

48 READ B:POKE A,B 

58 NEXT А 

68 DATA 184,184,194,178,76,86,228 

98 REM 

188 GOSUB MODES 

118 GOSUB NAME 

112 ТЕ МОфЕ(215 THEN GRAPHICS MODE 

115 IF MODE=15 THEN 50508 288 

128 GOSUB SCRENLOAD 

138 GOTO 16888 

208 ? :7 “RWHEN YOU HAVE FINISHED VIEH 
ING " 

205 REM 

718 ? "PRESS THE HANAMI KEY ТО LOAD" 
220 ? "ANOTHER PICTURE. " 

230 ? :7 “WHICH GRAPHICS MODE " 

248 ? :7 "7 8 9 18 ii 15"; :IMPUT MODE 
268 IF MODE=7 THEN MODE=23 

278 IF MODE=8 THEN MODE=24 

298 RETURN 

188 REM HEMNES 

385 FOR #8 TO 8: СВЕБСЙ) -РЕЕК (784 +П):М 
ЕКТ R 

218 GRAPHICS 8+16:DLIST=PEEK (560) +РЕЕК 
(551)%256:РОКЕ DLIST+3,78 

115 FOR R=@ TO 8:РОКЕ 7044R, CREG(R) : НЕ 
HT R 

178 FOR CHAMGE=DLIST+6 TO DLIST+204:IF 
РЕЕК (СНАНБЕ) =15 THEN POKE CHANGE, 14 
328 IF РЕЕК(СНАНБЕ) -79 THEN POKE CHANG 
E,78 

148 НЕНТ CHANGE:POKE 87,7:RETURN 

498 REM 

500 REM GET NAME ROUTINE 

518 REM 

528 ? 17 "ИНАТ FILE DO YOU MISH TO SEE 

гын 

538 7 :? "ТҮРЕ D:FILEMAME.PIC " 

548 INPUT 85 

568 RETURN 

15998 REM 

15888 REM WAIT FOR 

15018 REM 

16020 POKE 52279,8 

16010 IF РЕЕК(522791-5 THEN GRAPHICS 8 


CON'T FROM LAST MONTH 


:G07T0 18 

16848 GOTO 16838 

17888 REM 

17818 REM SCREEN LOAD ROUTINE 

17828 REM 

17038 OPEN H1,4,0,45 

17848 POKE 852, PEEK (88) :POKE 852,РЕЕК( 
#3) :POKE 856,220:РОКЕ 857,30:POKE 858, 
? 

17858 1-058(1516,16) 

17878 CLOSE Hi 

17888 RETURN 


18 REM ENG 
28 REM CHECKS THE ITERATION COUNT FOR 


MANDELZOOM CHANDLCAL) 


38 REM by Bick Kellett 
48 REM 

58 REM МАСЕ MARCH 1986 
60 REM ЖВООВОВНВОВВНЕЖ 


78 REM ЭННННӨНННННеНеЕ 

88 7 CHRS(125):DIM A(100), FILES (15) , DA 
T$ (8) 

98 7 “ENTER МАМЕ OF DATA FILE. 00 NOT 
USE DEVICE OR EXT. PROGRAM PROVIDES 
ар: DEVICE AND Å BAT EXT" 

188 INPUT DATS: TRAP 168 

118 FILES Ci, 29="D:"sFILES(T, LEN (DATS + 
2)-=DATS : FILES ПЕН {DATS} +1)", DAT" 

128 CLOSE Hi: OPEN #1,4,8,FILES 

138 FOR Fri TO 188: ACFI-O: NEXT Е 

148 БЕТ Bi, WN: ACH) АСМ) +1 

158 GOTO 148 

168 CLOSE #1 

178 ? СНИ (125) :Е08 P=1 TO 188 

188 HPOS=(P-1)%7:VP0558 

198 IF НР05228 THEN НРо5-НР05-25:УР05- 
9Р0541:650Т0 198 

7288 POSITION НРО5,УР05 

218 7 PET ІР); МЕХТ Р 

278 ? “PRESS FOR GRAPH. VERT АЖ 
15 15 SCALED TO A SQUARE LAM FOR COUN 
15" 

238 IF PEEK(53279)=3 THEM 258 

240 GOTO 238 

258 GRAPHICS B:VIB:SETCOLOR 7,08,0:С010 
R 1: РОКЕ 657,8 

26 pe сакка eel ый 
Us: POKE: 6575 8 

> er ae аве ес 


288 FOR 0-1 TO 18@:1Р 9-1 THEN PLOT V, 
159-508 (A (92) 

298 PRANTO WET, 159-50R(A(VI) 

30808 NEXT Y 

318 GOTO 118 


8 


18 GRAPHICS B:POKE 718,288:PQKE 712,24 


17 3? „аЗ, НЫН" POKE 748,5 
20 ? :7 = GRAPHICS 7+ TO РКВО PRINTER" 


38 2 :? “by Jerry Hhite & Fernando Нег 

rera" 

48 ? :? "Altered to PH8@ and print eac 

h 9:7 "register separately by Dick Ке! 

lett." 

45 7 "WHEN PICTURE 15 LOADED PRESS MEM 

ІШІП TO PRINT REGISTRATION LINE":? "PRE 

55 TO COMMENCE PRINTING" 

58 ? :? "PLEASE WAIT. SCREEN DUMP LOAD 

ING" 

51 FOR ТІНЕ-і TO 1889; МЕКТ TIME 

58 GOSUB 1410 

94 REM ЗЕЖЗСРЕЕН DUMPE 

35 REM XBY JERRY WHITE å 

96 REM HFERNANDO HERREA M 

37 REM % ANTIC MAGAZINE * 

98 REM * JANUARY, 1984 Ж 

339 REM NNN EGGENE 

188 REM 

185 DIM PR15(788), PR25(780) ,HDS (4) , FNS 
(15) ,CI0V$ (42) , BLS (33) , REGS (770) 

118 TRAP 118:GRAPHICS B:POKE 82,4:РОКЕ 
752,1:РОКЕ.718,168:РОКЕ 712,24:? "ENT 

ER DEV: FILENAME. EXT"; : INPUT FNS 

178 TRAP 48898 

175 REM 

188 RESTORE 19Ø:FOR ME-1 TO 4:READ IT: 

HDS СМЕ, ME) СНАХ (ІТ? : NEXT МЕ 

198 DATA 27,76,2,3 

288 PRIS-CHRS (8) :РВІ5 (780) -СНЕ5 (02 : PRI 
$ (2) =PR1iS: PRZS=PRIS 

281 REGS (1) -CHRS (8) : REGS (778) -CHRS (8): 
REGS (2) -REGS (778) :ПЕБ5(1,1)-"7": REGS (7 
78,7783 -"7" 

218 PRIS (1,42 -=HDS:PRZ$ C1, 4) -=HDS 

228 REM 

238 RESTORE 240:FOR МЕ-1 TO 42:READ ІТ 
: СТ0у95 (МЕ, MEI=CHRS CIT) : NEXT МЕ 

248 DATA 1084,184,1084,18,18,18,18,178,1 
84,184,157,56,3,1084,157,69,5,184,157,5 
8,4 

258 BATA 104,157,73,3,104,157,72,3,32, 
86,228,169,8,122,212,189,67,2,133,217, 
36 

268 REM ПАЈЕ eee ЕЗ ЕРІНДІ 413 

278 RESTORE 280:FOR МЕ-1 TO 14: ПЕЙО IT 
BLS (ME, ME-CHRS CIT): NEXT МЕ 

288 DATA 184,1753,48,2,133,203,173,49,2 
:123,284,168,1,788,177,7203 

298 DATA 291,15,248,4,281,73,288,4,244 
,1,145,203,192,290,208,237,96 


693 IF REG=2 THEM ? Hi;"# - - - 


— -- - — - - -- — 


OR LF=1 TO 4:7 HL:MEKT LF 
694 IF REG=3 THEN ? Hi;"# - = 


- - - - - - -- - +": 
OR LF=1 TO 4:7 НІ:МЕКТ LF 
695 IF REG=4 THEN ? #1; "+-------- ALL R 
EGISTERS--SHADES OF GREY---------- + Е 


OR LF=1 TO 4:7 HL:MEXT LF 

787 IF PEEK(53279)=3 THEN 787 

788 IF PEEK(53279)=3 THEN 691 

789 IF PEEK(53279)$)6 THEN 788 

710 REM 
714 REM 
715 CLOSE Н1:ОРЕМ HL1,8,0,"P:":? HL;CHR 
$(27):"J":CHRSCL8) | CHRS (27) "L"; CHRS (2 
);CHRS (3) ; CHRS (27); CHRS (56) 

720 PRI=ADR{PR1IS) :PRZ=ADRIPRZA) 

738 REM 

748 FOR к-а TO 19:Р1СТ-191#48+5СЯ+К:5Т 
=058 (1526,РІСТ,РВЇ,РЕ22:7 HLPRLS:7 Н 
1; 9029: МЕКТ Ж 

758 7 91:7 н1:? #1; сНЯ5 (27); CHR (643: С 
LOSE #1: РОКЕ 764,255 

798 GRAPHICS 8: РОКЕ 718,288:POKE 712,2 
4:? 1? "PRESS Ш 1] TO ENTER NEXT REG 
ISTER":? "PRESS ЯФ FOR МЕН PIC." 
380 IF PEEK(53279)=3 THEM 281 

810 IF PEEK(53279)=5 THEN 118 

878 GOTO 888 

928 CLOSE HL:GOTO 381 

1408 REM 

1418 RESTORE 1420:FOR ME=1536 TO 17180: 
READ ML:POKE МЕ, М: NEXT ME 

1479 DATA 104,104,133,204,104,133,293, 
184,141,192,6,1894 

1419 DATA 141,191,5,184,141,194,5,184, 
141,193,6,169 

1448 DATA 1,133,287,169,191,133, 208,16 
8,8,177,202,141 

1458 DATA 198,6,165,207,240,28,169,0,1 
33,207,173,193 

1458 DATA 6,24,105,4,141,193,6,133,285 
,173,194,6 

1478 DATA 105,0,141,194,6,133,206,76,3 
5,6,169,1 

1488 DATA 133,207,173,191,6,24,105,4,1 
41,191,6,133 

1498 DATA 285,171,192,5,105,8,141,192, 
6,111,286,12 

1588 DATA 137,6,32,146,6,32,168,6,32,1 
378,32 

1518 DATA 159,6,22,158,6,165,207,248,1 
77,56,165, 282 

1578 DATA 233,480,176,2,198,204,133,283 





398 REM MONTES HENTET 

181 TRAP 281:7 CHRSC1iZ5): POSITION 4,2: 

7 "WHEN PICTURE IS LOADED PRESS 
TO PRINT REGISTRATION MARKS" 

202 7 "PRESS ВЛ TO PRINT" 

282 POSITION 4,5 

304 2 :7 "ENTER REGISTER TO PRINT “:? 
"8, DEF COL ОБАМБЕ":? "1, DEF COL GREE 
W':? "7, DEF COL BLUE" 

385 2 "T,BACKGROUND (REG 4).BEF COL BL 
ACK" 

306 2 "4, PRINT ALL REG IM SHADES OF G 
REY":? "INPUT REG";:IMPUT REG:IF REGSØ 
OR REG>4 THEN 301 

389 RESTORE REGN1O+3 30 

118 FOR МЕ-1721 TO 1746:READ PAT: POKE 

МЕ, РАТ: NEXT ME 

329 REM 

8 

338 BATA 0,0,0,0,15,15,15,15,0,0,0,8,8 
,8,8,8 

539 REM 

| GREEN! 

348 DATA 8,8,8,08,8,8,0,8,15,15,15,15,8 
,8,8,08 

349 REM 

358 DATA 8,8,8,08,8,8,8,8,0,8,8,8,15,15 


COLOR REG.1 DEFAULT COL LIGHT 


713,15 

159 REM FITTE EE 
BLACK 

368 DATA 15,15,15,15,8,8,9,8,8,8,8,8,8 
:0,0,8 

369 REM FOTS EE 
ЕТ 

278 DATA 0,0,80,8,1,0,4,0,5,0,12,0,15,1 
5,15,15 

555 REM HATET OSE HIT ET езі 


558 GRAPHICS 24: 5СЕ-РЕЕК (88) +РЕЕК (833% 
256: ASM=USR (ADR (ІН 833 

578 CLOSE Н1:ОРЕМ Hl,4,0,FNS:ASM-USR СА 

DRILCIDNVSI,1,7,5CR, 7688) 

679 REM 

688 IF PEEK(53279)=-3 THEM 698 

581 IF PEEK(532793-6 THEM 715 

587 GOTO 688 

682 TRAP 2820 

698 CLOSE HL:0PEN #1,8,8,"P:":IF REG<4 
THEN ? Ні; CHRS(273;CHRS (643 ;" 

COLOR REGISTER ";REG:? Hi 

691 IF REG-@ THEN ? Hi;"t- - - - 

OR LF=1 TO 4:7 #1: МЕКТ LF 

637. ТЕ REG=1 THEN 2 Tis этил 


OR LF=1 TO 4:7 HL:MEHT LF 
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, 198,298,165, 788 

1528 DATA 20і,255,208,151і,96,172,198,6 
,41,3,18,18 

1548 DATA 178,96,16й,8,189,195,6,145,2 
85,232,7288,1972 

1558 DATA 4,288,245,96,172,198,6,/74,74 
,141,198,6 

1569 DATA 96,168,8,189,195,5,18,18,18, 
18,24,11: 

1578 DATA 285,145,285,252,288,197,4,28 
8,238,96,8,8,8,0,8 

1588 RETURN 

2888 FOR 5-1 TO J00:50UMD 8.5,18,15:50 
UND 8,8,8,8 

2918 GRAPHICS @:POKE 718,288:РОКЕ 717, 
24:PO5ITION 8,4:2 "GCIs 

TN Gu 

2828 POSITION 5,7:7 “CHECK PRINTER AMD 
PRESS ВИДИ" 

2048 IF PEEK(51I2791436 THEN 2948 

2050 TRAP 48888:65070 481 


ACE’S ANNUAL 
PICNIC & SWAP 
MEET 


JULY 9TH 
700 Р.М. 


JASPER PARK 


GRID 
Ву Mark Hewson 


Grid 15 а two player game requiring 
the use of two joysticks. After a leng 
thy initialisation Capprox, 58 seconds 
1 а grid appears and the players are o 
ffered a choice of four game options. 
The desired option is selected by pres 
sing the trigger button as the option 
lights up. 

The object of the game is to outscor 
е your opponent by placing you coloure 
d pieces strategically to either gain 
high scores yourself or to stop your o 
pponent from obtaining a high score. 

There are several "Mystery Squares" 
and if you place your piece on these t 
here is an even chance of either doubl 
ing your score or scoring no points fo 
r that move. In the "Tricky" version o 
f the game Mystery Squares have an add 
itional function. If you choose a "по 
score’ square not only do you score ze 
ro for the move but your opponents pie 
ce will be placed on th square. "Trick 
у" games have red question marks over 
the Mystery squares and Normal games h 
ave green question marks. 


8 Je fdr 

18 REM SEEGER 
ii REM Ж GRID % 
12 REM Ұ å THO PLAYER STRATEGY GAME Ж 
12 REM # BY + 
14 REM * MARK HEHSON # 
15 REM INNANEN EEEE 
16 REM 


188 CLR : РОКЕ 852,6 

118 DIM ТОТА (2) Р9(4),5(9),Е5 (18) :60- 
1:р9-" И" 

118 5:1)-8:Е08 1-7 TO 8:5(1)-Т: МЕКТ I 
158 GOSUB 2169 

148 60508 1889: РОКЕ 54286,192 

158 POKE 799,0:60508 1948 

158 TOTAL (1) -8: TOTAL (23-8 

178 60508 1839 

188 REM CURSOR 

198 РА=96:Рр-87:РОКЕ 1516,0:РОКЕ 704,1 
4 

200 RESTORE 278:ҒОВ 1-1571 TO 1578:REA 
В К:РОКЕ І,К:МЕХТ I 

218 POKE 1611,7:РОКЕ 53255,8 

119 DATA 0,24,24,126,126,24,24,9 

238 IF MOVES-@ THEN GOTO 618 

248 POKE 53248, PA:POKE 1536, PD:FOR DES 
i TO 58: МЕКТ BE 

258 А=5ТІСК (60-17 

758 IF STRIG(GO-13-@ THEN POKE 77,8:60 


GRID 


278 Z=PEEK (522793 
288 IF 2-6 THEN POKE 559,@:FOR К-51248 
TO 52251:Р0КЕ К,В: НЕКТ K:MDVES=Ø:? СН 
#5 (125) :60Т0 158 | 

298 ТЕ A=15 THEN GOTO 258 

1898 IF й-12 AND Рр(88 THEN PD=PD+8:G0T 
0 248 

118 IF 4-14 AND PD}4@ THEN PD=PD-8:G0T 
9 248 

328 IF й-11 AND PA)96 THEN РА-Рй-8:60Т 
0 748 

138 IF 4-7 AND РА<152 THEN PA-PA+B:G0T 
0 748 

340 GOTO 258 

358 REM TRIG PRESSED 

168 BONUS—1:A=(PA-48) /8:0=(PB-233/8:L0 
CATE 4,6,2 

178 ТЕ 7-91 THEM POSITION 4,0:7 Н6;Р9( 
60,60) :50UND 0,10,18,14:50UND 1,15,18, 
14:5070 428 

188 М-ІМТСЕМр (9) 2) 

198 ТЕ Moi AND (7-228 OR Z=203) THEN 1 
668 
488 
498 
418 POKE 704,0:FOR 0-228 TO 255 STEP 8 
-5:50UND 8,0,18,18: НЕХТ 0:50UND 8,8,8, 
Я:РОКЕ 704,14:5070 258 

428 REM SCORE 

438 N=0:5=0:A1=A:D1=D 

448 LOCATE A1,01,Z:IF Z=A5C(P$(60,60)) 
THEM 01701-1:6070 448 

458 LOCATE й1,0141,7:ІҒ 7-й5С(Р9(60,60 

33 THEN DI=Diti:N=N+1:G0TO 458 

468 5-545 (NJ ¥B0NUS 

478 М-Ө:01-й4:01-р 

488 LOCATE #1,01,2:ТЕ 2-А5С0Рр5 (60,6032 
THEN В1-р1-1:й01-й1-1:6070 488 

498 LOCATE AL+1,P1+1,Z:IF 7-05С(Р%9(60, 

602) THEN Di=Diti:Ai-Aiti:N=N+i:G0TO 4 

98 

588 5-5+5 (му жвомия 

518 SOUND @,0,8,8:50UND 1,8,8,8 

528 Й-8:й1-4:01-0 

558 LOCATE AL,D1,Z:IF Z=ASCIPS(GO,50)) 
THEN йі-й1-1:6070 530 

548 LOCATE AL+1,D1,Z:IF 7-й5С(Р5(60,60 

1) THEN #1541+1:М-М+1:6070 548 

558 5-5+5 (Н) HBONLS 

560 M=0:41=4:D1=0 

578 LOCATE й1,01,7:ІҒ Z-ASC(PSIGO,GO) 
THEN й1і-й1-1:01-01ғ1:6070 578 

588 LOCATE й1%1,01-1,7:ІҒ 7-й5С (Р5 (60, 

602) THEM Ai=Aiti:Di=bi-1:NW=N41:60TO 5 

38 

598 5-5+5 (И) XBONUS 

608 TOTAL £G0)=TOTAL (60345 
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IF Н-8 AND (772208 OR Z=283} THEN 1 


618 60-2-60:4й-178:ІҒ 60-1 THEN AA=78 

628 POKE 656,8 

638 POKE 657,6:? “UNTUO": 

548 POKE 657,29:7 пумтион; 

658 POKE 655,1 

668 POKE 657,8-INTCLENCSTRS (TOTAL (19)? 

723:7 ТОТА (12; 

678 POKE 657,31-INTCLENCSTRS (TOTAL (23) 

2/22:7 Т@ТА1 (2); 

688 IF MOVES=56 THEM POKE 52249,8:6070 
1198 

698 POKE 53249, AA:POKE 51248,г4 

798 IF MOVES=0 THEN POKE 1536,PD:FOR x 

218 Т0 8 STEP -1:ҒОВ І-188 TO 58 STEP 

-4:50UND 8,1,18,Ң:МЕКТ I:NEXT К 

718 MOVESI=MOVES+1:G0TO 258 

778 REM TUNES 

728 Q=12:D=18 

748 IF RE=@ THEN RESTORE 848 

758 IF RE=i THEM RESTORE 868 

768 D=D+16:READ 50,51,52,DE:POKE 548,0 

EXO 

778 IF 58-999 THEN SOUND 9,8,8,0:50UND 
1,8,8,0:500MD 2,0,0,0:РОКЕ 789,282:60 

TO 2078 

788 SOUND 8,50,14,18:50089 1,51,18,18: 

50090 2,52,18,18 

798 IF РЕЕК (548) -8 THEN 768 

888 7-РЕЕК (51279) 

818 IF 7-6 THEM SOUND @,8,8,@:S0UND 1, 
9,8,8:500ND 2,0,8,8:РОКЕ 789, 282:G60T0 
288 

878 0-0+16;ТЕ р9255 THEN 0-18 

818 POKE 789,0:6070 798 

848 DATA 8,40,58,2,40,58,50,2,58,0,48, 
2,100,700,0,4,0,8,8,1,50,58,70,2,8,58, 
188,2,128,258,50,2,208,178,28,4 

858 BATA 999,999,999,8 

358 BATA 158,120,0,2,1088,88,й8,2,98,75, 
8,2,155,118,8,2,150,98,8,2,208,158,8,1 
,75,0,8,8,208,158,128,4 

878 DATA 999,999,999,8 

888 REM CHOICES 

890 IF STRIG(Ø)=8 OR STRIGCI2=98 THEN 8 
98 

908 POKE 656,8:РОКЕ 657,1:РОКЕ 755,2:7 
GOE TOC TE ПИП 

ШІ; 

910 POKE 656,1:POKE 657,1:7 "ЖЕШ 
логма! TED GUY: 

928 POKE 1518,101:РОКЕ 789,282 

918 POKE 51258,52:РОКЕ 706,144:50UND 8 
,175,18,4:MM=6:RE=0:605UB 978 

948 POKE 53250,92:50UND 8,188,18,4:ММ- 
17:RE=0:605U8 978 

958 POKE 53250,112:POKE 786,80:S0UND 8 
,75,10,4:MN=6:RE=1:G05UB 978 

968 POKE 53250,172:50UND 6,58,18,4:MN= 





iZ:RE=1:G05UB 978:50Т0 928 

978 FOR Ісі TO I 

988 POKE 656,2:РФОКЕ 657,12:7 “ 

“3 

998 FOR DE=1 TO 15:ІҒ 5ТЕ16 02-0 OR ST 
#16(1)-8 THEM 1969 
1898 НЕКТ РЕ 

1818 POKE 656,2:РОКЕ 557,12:? "trigger 
selects": 

1828 FOR DE=1 TO 15:ІҒ STRIG(BJI=A OR 5 
ТЕІБ(12-8 THEN 1868 

1818 НЕКТ DE 

1848 МЕНТ I 

1850 RETURN 

1968 ? СН 9 (125); РОКЕ 53258,8:РОКЕ 796 
: 196 :POKE 1528,121:Р0КЕ 789,282:Р0Р :р 
or POP 

1878 SOUND 8,8,8,8:РОКЕ 77,8:ҒОВ DE-1 
TO 88: МЕКТ DE:GOTO 7068 

1088 REM BARS 

1098 POKE 623,1i:POKE 1613,7:РОКЕ 1514, 
7:POKE 51258,1:РОКЕ 34259, 3:POKE 53758 
:8:POKE 53251,8 

1188 POKE 706,0:POKE 707,52:POKE 1538, 
182:РОКЕ 1539,103 

1118 FOR І-1591 TO 1598: POKE 1,255:MEX 
T I 

1128 FOR I-1601 TO 1588:РОКЕ 1,255: НЕК 
тт 

1138 REM ARROM 

1148 POKE 705,119:RESTORE 1178 

1158 FOR І-1581 TO 1588:READ К:РОКЕ І, 
H:WEXT I 

1168 POKE 16127, 7:РОКЕ 1517,92 

1178 DATA 60,68,60, 60, 255,126,68,24 
1188 Ай-78: RETURN 

1198 REM FINISH 

1708 Z-16: £$- TT" :c=136 

1218 IF TOTALCZ2)> TOTAL) THEN Е#=" Тр] 
METFUR":c-72:60-1 

1728 IF TOTAL ¢13> TOTAL (2) THEN E5= 10 
ПЕПЕ": ¢=202: 60-2 

1238 POKE 718,С: РОКЕ 755,1 

1748 POSITION 5,9:7 HOSES 

1258 FOR І-129 TO 13 STEP -7:50ИМр 8,І 
718,12: 50ND 1,1-4,18,18:50UND 1, ЕТ. 
8, 18: 50UND 3,1-12,18,18:МЕКТ I 

1268 FOR I=@ TO 1: 50имо Т,8,8,8: МЕКТ I 


1278 
1288 
1238 
1308 
1318 
13298 


60508 1420:60508 1429 

B=5:FOR І-і Т0 I 

SOUND 8,188,18,7:605И8 1420 

SOUND 8,75,10,7:605ШВ 1478 

SOUND 8,50,10,7:60508 1420 

SOUND 8,75,18,7:60508 1428 

1528 NEXT I 

1348 SOUND 8,188,10,Z:605uR 1428: 60508 
1428:50UMD 8,0,8,8 


GRID СОХТ 


POKE 656,2:POKE 657,45:-@:p-6 
? И" 

Х-К+і:РОКЕ 755,9:G0SUB 1428 

POKE 755,1:605UB 1428 

IF К‹2@ THEN 1778 

Z=Z-2:IF 748 THEN 7-8 

GOTO 1288 

ВЕТО 

DE=DE+i:IF DEZO THEM RETURN 

1448 C=C+i6:IF C)255 THEN С-8 

1458 IF STRIG(@2=@ OR STRIG(1)-8 OR РЕ 
ЕК(52279)-6 THEN РОКЕ 559,8:6072 1480 
1468 POKE 710,С 

1478 GOTO 1438 

1488 POP :FOR I=53248 TO 53251:POKE І, 
8:МЕХТ T:MOVES=@:? CHRSC175) :S0UND 0,0 
:0,0:POKE 77,@:60T0 158 

1498 REM 800BY 

1588 BONUS=@:POSITION A,D:7 He: “:RES 
TORE 1518:РОКЕ 1516,0:РОКЕ 704,154 
1518 DATA 126,60,24,60,69,60,69,24,98, 
126,60,36,153,126,129 

1528 FOR І-1571 TO 1578:READ K:POKE I, 
К:МЕХТ Т:РОКЕ 53768,0:POKE 53761,168 
1530 FOR 1-4 TO PD STEP 2:POKE 1516,1: 
POKE 53760,I:MEMT I:POKE 1536,0 

1548 FOR 171572 ТО 1578:READ К:РОКЕ І, 
K:MEKT І:РОКЕ 1536,PD 

1550 FOR 215 TO @ STEP -1:Е0В K=2 То 
18 STEP 2:РОКЕ 704,K*J:S0UND в, J*K,2,J 
:МЕКТ К:МЕКТ J:POKE 704,10 

1568 FOR DE=1 TO SØ:NEKT DE 

1578 FOR І-і Ta 2 

1580 POSITION 6,9:7 t6:"st umtuo":SQ0UN 
0 0,200,10,10:FOR DE=1 TO 20:МЕХТ DE 
15908 POSITION 6,9:7 H6;" ШЕТІ, 
D 8,8,8,0:ҒО8 DE=1 TO 2@:NEKT DE 

1588 NEKT I 

1618 POSITION 6,9:7 #6:"HHHHHHHH" 

1620 POKE 53248,0:POKE 704,14 

1658 IF RE=@ THEN POSITION 4,0:7 н6:р5 
(60,60) 

1548 IF RE=1 THEN POSITION A,D:? н6:р5 
(3-60, 3-60) 

1658 RESTORE 220:Ғ0й 1-1571 TO 1578:RE 
AD К:РОКЕ І,К:МЕХТ I:GOTO 618 

1668 REM BONIS 

1678 POSITION 4,0:7 Нб;" ":RESTORE 168 
Ө:РОКЕ 53248,8:POKE 704,106 

1688 DATA 68,126,98,126,98,66,182,58 
1698 FOR І-1571 TO 1578:READ К:РОКЕ I, 
К: МЕКТ I 

1788 POKE 53248,PA:BONUS=7 

1718 FOR 1-15 TO 2 STEP -41:FOR К-15 То 
1 STEP -3:50UND 8,.%К,14,15:РОКЕ 784, 
НЕК: ЕКТ К:МЕКТ J:50UND 8,8,в,в 

1778 POKE 704,106 

1758 FOR DE=i TO SØ:NEKT DE 
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1550 
izga 
1378 
1380 
1598 
1488 
1418 
1428 
1418 


1748 FOR Ізі To 2 

1758 SOUND 8,59,19,1@:POSITION 73297 
в; “пи го": РОВ DES1 TO 2Ø:NEXT DE 

1758 SOUND @,180,10,10:°05ITTON 7,9:7 
НБ; НТИ ВОН: FOR DES1 TO ZØ:MEYT DE 
1778 WEXT I 

1788 SCUND 8,8,8,8 

1798 POSITION 7,9:7 #6: "HHHHHH™ 

1888 POKE 51748,8:P0KE 794,14 

1818 POSITION й,0:7 HE :PS1ED. 603 

1878 RESTORE 22@:FOR I=1571 TO 15/78:RE 
Ар К:РОКЕ I.M:WEXT I:CGr0 428 

1828 REM MYSTFRY SDUARFS 

1848 IF RESA THEM POKE 710,152 

1858 IF НЕСІ THEM POKE 710,88 

1868 FOR Ісі TO MN 

1878 A-INT{RND (87 #83 +6 

1888 D INTERNO (8) #73 +? 

1890 LOCATE A,D,Z:IF 74991 THEM GOTO i 
878 

1308 IF й-6 AMD 0-8 THEN 1879 

1318 POSITION 4,6:? HE:PSCI+RE FAREN 
1328 FOR 0-1%15 TO В STEP -6:500М2 8,0 
:18,18:МЕЖТ Q:30UND 2,9,8,8 

1348 NEXT I:RETURN 

1348 REM ORAH GRID 

1958 POKE 1538.131:POKE 1529,121 

1358 ASS:KILBA 

1978 POSITION 8,8:? Hå:"puqn" 

1988 POSITION 4,1:7 HG:"EGGGGGEGEE" 
1998 FOR D=2 TO 8 

1898 POSITION A,B:7 Нб; "АГЕГЕГЕГГЕН 
2818 NEXT D 

2820 POSITION 4,9:7 Нб: "СННИННКННО“ 
2828 POKE 559,45 

7848 FOR РЕ-Т TO 48: МЕКТ DE 

7858 GOTO 888 

2868 6070 720 

7878 FOR DE=i TD 4@:NEKT BE 

2089 POKE 5225й,65:РОКЕ 51251,158 

7898 FOR I=iz@ TO 187 STEP 71:8--8:50Ш 
ко 0,100+Х,18,10:РОКЕ 1538, I:POKE 1539 
«IT :NEKT T:S5QUND 6,0.8,@:RETUAN 

7188 REM DLI 

2118 DL=PEEK (568) +РЕЕК (561) 256 :РОКЕ р 
1414,135 

2128 RESTORE 2148 

2130 FOR І-1771 TO 179a:READ К: РОКЕ I, 
К: МЕКТ I 

2148 DATA ?7,118,72,169,8,162,8,141,1й 
:217,141,24,208.142,76,208,184,178, 104 
+64 

2158 POKE 512,235:P0KE 517, S RETURN 
7168 REM НЕМ CHARACTERS 

2178 POKE 106, PEEK (1@6)-8:5RAPHTCS Zip 
ОКЕ 718,8:РОКЕ 711,54:P0KE 752, 1: РОКЕ 
656,08:РОКЕ 657,15:? k oY MARKY W 


2188 POSITION 8.5:7 H6:"GRIp" 


2198 GOSUB 2198 

2208 STI CPEEK (186) +4)#255 

2218 IF РЕЕК(1615352104 THEN GOSUB 259 
8 

2228 FOR І-8 TO 255:РОКЕ 1+5Т,РЕЕК (577 
44413 :MEXT I 

2228 POKE 656,@:PQKE 657,13:? mw PLEASE 
HATT å 

1148 RESTORE 2308 

2758 FOR -1-256 TO 487:REAG C:POKE I45T 
„С: МЕКТ I 

2268 FOR 1-488 TO 1898:РОКЕ І%5Т,РҒЕК( 
57144+1) : НЕКТ І 

2278 60508 2888 

2788 POKE 559,8:РОКЕ 756,51/256:? CHRS 
(125) 

2798 RETURN 

2588 DATA 126,98,126,68,36,153,126,129 


2318 DATA 7,7,7,7,7,7,7,7 

2528 DATA 8,0,8,0,8,7,7,7 

2358 DATA 7,7,7,0,8,0,8,8 

2248 DATA 224,724,724,0,0,0,8,8 

2350 DATA 8,0,8,8,0,274,224,224 

2168 DATA 224,224,224,224,224,224,224, 
224 

2370 DATA 8,8,8,8,8,255,255,255 

2388 DATA 255,255,255,8,0,8,8,й 

2598 DATA 0,124,238, 238,238,254,238,23 
8 

2488 DATA 8,68,126,126,126,175,58,0 
2418 DATA 125,182,6,28,24,24,8,24 

2478 DATA 8,252,218,252,228,228,254,25 
2 

2458 DATA 8,124,228,224,274,228,254,12 
4 

2448 DATA 9,248,236,210,230,238,254,25 
2 

2458 DATA 8,254,224,254,224,224,254,25 
4 

2468 DATA 8,124,218,224,218,210,254,12 
6 

2470 DATA 9,68,60,60,69,60,68,68 

2488 DATA @,224,224,224,224,224,254,25 
4 

2498 DATA 8,238,246,254,254,228,218,22 
8 

2500 DATA 9,124,218,218,218,218,254,12 
4 

2518 DATA 0,252,238,252,238,218,238,23 
8 

2528 DATA @,124,224,124,14,14,254,252 
2528 DATA @,238,238,238,238,238,254,12 
4 

2548 DATA 8,230,230,230,218,254,254,22 
и | 

1558 DATA 0,752,230,230,754,252,724,22 
4 


GRID CONT 


2568 DATA 0,238,238,124,56,56,56,56 
25708 BATA 255,129,129,129,129,129,129, 
255 

7588 DATA 8,58,68,58,58,0,58,8 
1598 REM M/C P/M 

2600 RESTORE 2610:FOR 1-0 TO 234:READ 
JiPOKE 153641, J:MEHT I: RETURN 

2610 DATA 8,8,й,й,й8 

2528 DATA 8,0,8,8,й 

1638 DATA 8,08,8,й8,й8 

2640 DATA 8,8,8,8,й8 

17658 DATA 8,й8,8,8,8 

2669 DATA 0,0,35,6,45 

2670 DATA 6,55,5,65,6 

1688 DATA 80,8,8,8,0 

71698 рата 8,8,8,8,й 

2700 DATA 8,8,й8,8,й 

2718 DATA 0,0,8,0,8 

2728 рата 8,8,8,й8,8 

2739 рата 8,8,8,8,й 

2748 DATA 8,8,8,8,й8 

2758 DATA 0,0,0,8,0 

2768 рата 9,0,0,0,184 

2770 DATA 162,6,168,98,169 

1788 DATA 7,32,92,228, 96 

2798 DATA 171,26,6,208,6 

1808 DATA 52,187,5,22,184 

1818 BATA 6,76,98,228,169 

2829 DATA 3,133, 203,186, 282 

1818 DATA 189,0,5,123,285 

7848 DATA 188,8,6,157,8 

2858 BATA 6,189,75,6,137 

1868 DATA 284,128,18,178,189 

2878 DATA 16,6,133,206,189 

2888 DATA 17,5,152,287,189 

2898 DATA 27,6,122,208,189 

2308 DATA 28,6,133,289,166 

1318 DATA 294,169,0,145.786 

2928 DATA 136,192,255,248,2 

79:08 DATA 202,16,246,164,204 

2948 DATA 177,288,164,2й5,145 

2958 DATA 2086,136,132,205,192 

2360 DATA 255,248,4,198,284 

1978 DATA 16,217,198,281,16 

2388 DATA 178,96,162,3,173 

1338 DATA 24,5,122,285,173 

3000 DATA 25,5,123,287,188 

5818 DATA 12,6,189,271,6 

28728 DATA 49,286,145,206,188 

1819 DATA 4,5,189,227,6 

3848 DATA 17,285,145,286,15? 

3858 DATA 157,12,6,202,16 

3868 DATA 229,96,2,12,32 

2078 DATA 192,252,242,287,47 

2888 REM HHH P/M INITIALIZATION жұн 
1838 І-РҒЕК(10862-8:РОКЕ 542779, 1:PQKE 5 
$277, 3: PMBASE-I#256 

5188 MISSILE-PMBASE+384: JSINTIMISSILE/ 
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256) :РОКЕ 1568, (MISSILE-J*256) :POKE 15 
61,4 

3118 PLAYERØ=PMBASE+512:J=INT(PLAYERO/ 
256) :POKE 1552, (PLAYERB-J*256) :POKE 15 
63,1: 

3178 PLAYERI=PMBASE+640: JOINT (PLAYERI/ 
256) :POKE 1554, (PLAYERI-J#256) :POKE 15 
А 

3158 PLAYERZ=PMBASE+768:J=INT(PLAVER2/ 
2561 :РОКЕ 1556, CPLAYER2-J#256) :РОКЕ 15 
SA 

1140 PLAYERI-PHBASE+896:JZINT(PLAYERZ/ 
256): POKE 1558, (PLAYERS-J#256) :POKE 15 
59,4 

1158 FOR JSPMBASE TO PMBASE+1024:POKE 
J,Ø:MEKT J: A=US5R (1615) RETURN 


MEE TING 


WED. JUNE 1TH 


SOUTH EUGENE 
HIGH 





MANDELBROY БЕТ ORES е 


USING AN ATARI 800 

or a slow road to insanity.... by Rita Plukss, Pres. M.A.C.E. 

(reprinted from Melbourne ACE, POB 340, Rosanna, Victoria, Australia 
3084 Mar 86) 

Girolama Cardano was an astrologer and physician to kings, a 
compulsive gambler who spent his life on the verge of bankruptcy and 
prison as well as on the brink of atheism and heresy. He was also a 
scientific writer from whose quill books flowed in fountains. 

Over 300 years later he has been responsible for my near compulsive 
behaviour and for grave doubts being cast upon my sanity. Because of 
his astounding concept of negative numbers, апа fictitious or 
sophisticated quantities, my family have placed a sign on the computer 
room door — quarantine area — and refuse to come in close contact 
with me. All they hear through the crack in the door, or when | emerge 
for sustenance is “why is it not there?”, "where is it?”. They just shake 
their heads and hope that there is a power failure and then | will return 
to human form and remember all those tasks that now remain undone. 

What Cardano put forward is today called an “imaginary” number. 
This is the square root of a negative number. What? you say. Has she 
finally flipped her lid? We all agree that it is impossible to have a square 
root of anegative number, but, just suppose, if it could be imagined and 
we combined this imaginary number with a real number eg 1+ 2/-2, then, 
the result would be known аз а “complex” number. 

In fact these “complex” numbers have all sorts of applications in 
areas such as atomic physics, engineering etc. But who can understand 
such highly abstracted concepts? All I'm interested in is using them to 
generate pretty pictures. 

А “complex” number is one that is composed of an ordinary number 
plus some multiple of the imaginary unit (the square root of minus one). 
eg 2+5/-1. The customary way of writing /-1 in such numbers is i, and 
any complex number as a+bi. In our example a is 2, bis 5 andi is the 
square root of minus one. So we can write it as 2+5i. 

Ordinary numbers can all be thought of as lying along a single 
straight line without any gaps in it - a continuum. But a typical complex 
number a +bi has no place on the line of ordinary numbers. So what can 
you do with it? Where does it fit? 

Gauss proposed that the complex number could be thought of as 
labelling a point on a two dimensional plane; where a would be the 
horizontal distance and b the vertical distance and that the full a+bi could 
determine the position of a point on the plane just as the x and y of a 
Cartesian coordinate couplet determines the point on a graph. 

So where does all this lead to? It leads to the Mandelbrot Set. The 
Mandelbrot set is named for Benoit B. Mandelbrot, a research fellow at 
the IBM Thomas J. Watson Research Centre in Yorktown Heights New 
York. He developed the field of fractal geometry (the mathematical study 
of forms having a fractional dimension). This work was carried on by 
John H. Hubbard, a mathematician at Cornell University and Hubbard 
was one of the first people to make computer generated images of the 
Mandelbrot set. According to Hubbard it is “the most complicated object 
in mathematics”. 

If you wish to gain a more mathematical insight into the Mandelbrot 
set, then you will need to have some understanding of two mathematical 
concepts - iterative procedures and complex numbers. The first is fairly 
easy (just like FOR-NEXT loops) but the second is a bit more abstruse. 
The articles on the Mandelbrot set in both Scientific American (August 
1985) and Your Computer (January 1986) will give you sufficient 
background of both concepts, but better still, consult with å senior high 
school maths student. 

To reiterate, a complex number takes the form of C=A+Bi where 
both A and B are real numbers (eg -5, 6, 8.996 etc) and i is defined as 
the square root of -1. The complex number C consists of a real part (A) 
and an imaginary part (Bi). We can now describe the iterative procedure 
that generates the Mandelbrot set. Start with the expression Z=Z*Z+C 
where both Z and C are complex numbers and allow Z to vary. Set Z=0 
to give us Z=0+C=C (Cis now equal to Z); substituting this value back 
into the equation for the next iteration will give Z=C*C+C, then 
Z=(C*C+C)(C*C+C)+C and so on. The value of Z fluctuates with 
successive iterations because we have introduced the value i*i=-1 into 
our calculations. The Mandelbrot set is the set of all complex numbers 
for which the size of Z*Z+C remains finite even after an indefinitely large 
number of iterations and is situated at the centre of a vast two 
dimensional plane. The boundary of the set is a fractal (and you thought 
га given up on fractals)! But what a fractal! It must be the ultimate. 

Our interest lies on these edges of the set where Z falls outside 
the Mandelbrot set i.e. where Z does reach the value of 2 and will go 
off to infinity. The fractal area! 


The number 2 is the crucial factor in working with the Mandelbrot 
set. “А straight forward result in the theory of complex number iterations 
guarantees that the iterations will drive Z to infinity IF AND ONLY IF at 
some stage 2 reaches the value of 2 or greater.” But, actually there are 
very few points where the value of 2 will not be reached after a small 
number of iterations. This situation becomes rarer as the iteration count 
incredses. 

The Mandelbrot set itself is the black (static) area within the plane, 
where Z does not reach the value of 2. (That is, black on the screen, 
white on the printouts.) It is shaped like a squat, wart covered figure 
eight lying on its side (see Fig.1). 

The coloured and patterned areas around the set are where Z has 
reached the value of 2 and the colour of the pixel should tell you how 
many iterations it took to reach that value. This is che area that is of 
greatest interest, the areas that surround the set. These areas are a 
myriad of colours and patterns, no two areas being identical, yet 
repeating themselves over and over again. There are riots of organic 
looking tendrils and circular sweeps, whirls and whorls, and the colour! 
You can look at the full set, look at the edges, or you can zoom in as 
with a microscope and go deeper and deeper, the patterns and colours 
just keep happening. 

The program that searches for these values has been called 
MANDELZOOM (Program listing 1). As the name implies it investigates 
the Mandelbrot set and also allows you to zoom into the set for closer 
investigation of any part. 

With the Atari 800 we do have a couple of minor problems; no 
double precision therefore we have to limit our zooming, and the 
resolution we can actually achieve, once again limiting our final screen 
output. But with these limitations recognised we can produce acceptable 
displays within those constraints. 

Our first programs produced immediate displays - if anyone is 
interested in these let me know and I will pass them on to you. The final 
versions (we think they are the final versions - but we have thought that 
before!) of the programs that follow this article were put together by 
Dick. But there have been a small core of enthused people (or nuts?) 
working diligently through the various stages to come up with the final 
version. This subset of the Mandelbrot set have worked and bolstered 
each other and they are Chris Ryan, Dick Kellett, Ron Collis, and of 
course, myself. There have been a couple of enthusiastic late comers, 
Gary Fyfe and lan Conner (both from Geelong). The main problem with 
immediate screen plotting was that we could not reallocate where the 
colour changes should take place. Not having the memory available to 
read the data into an array, Dick had a stroke of genius - put it to disk 
as a data file, then when you are ready to plot, read it back from the 
disk! Brilliant | said! Only one problem, each data file is 246 sectors long! 
Oh well, what else are disks for? 

It still amazes me that with only 48K of memory (less BASIC of 
course), an 8 bit ATARI computer and a TV screen that we could produce 
screens that are quite acceptable considering that what you see 
elsewhere have been produced on computers much more powerful than 
ours. 

BRIEF EXPLANATION OF THE 4 PROGRAMS. See Dick's article on 
how each of the programs work. | 
PROGRAM 1: MANDELZOOM - MANDLCAL 

Performs the calculations on that part of the Mandelbrot set under 
investigation and writes it as a data file to disk (15-30 hours), depending 
on how much of the area is within the actual set (black). 

PROGRAM 2: MANDPLOT 

Reads the data file obtained by program 1 and plots that data to 
screen. (15-20 minutes) 
PROGRAM 3: DATACHK 

Scans the data disk, reads the number of iterations required to 
generate each piece of data (pixel) and collates this information. This 
allows you to see at what levels of iteration to make your colour changes 
when running program 2. 

PROGRAM 4: COLDUMP 

This has nothing to do with the Mandelbrot set, but is a screen dump 
to dump each colour register separately to the printer (7+ screen). By 
using this, colour carbon paper and a good eye when you roll your paper 
back, you too can produce colour printouts as were seen at the February 
meeting. 

Have fun and good luck! For more information on the Mandelbrot 
set refer to Scientific American (August 1985) or if really involved try 
The Fractal Geometry of Nature by Benoit B.Mandelbrot (W.H.Freeman 
& Co. New York, 1977) and Fractals - Form, Chance and Dimension by 
Benoit B.Mandelbrot (W.H.Freeman & Co. San Francisco, 1977). 

(Rita and Dick want to trade programs and information about this 
facinating new subject with you — ed.) 
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FLOATING POINT 


XE (Reprint: CompUtah, April 1986) 

The Atari has built-in ROM routines to take care of most of the 
floating point (FP) needs to easily enable a number of functions which 
the 6502 microprocessor does not readily offer in its instruction codes. 
Basic makes calls to these same ROM routines and they are available 
to the assembly language programmer, too. The functions offered are: 

1. ASCII to FP and FP to ASCII conversion. 

2. Integer to FP and FP to integer conversion. 

3. FP add, subtract, multiply and divide. 

4. FP log, exponentiation and ploynomial evaluation. 

5. FP number clear, load, store and move. 

The FP package uses page zero variables from $D4 to $FF and a 
buffer area from $57E to $5FF. If your routine is not making any calls 
to any of the FP package, these areas are available for your use. Keep 
in mind that Basic makes calls to the FP package so these areas are 
“sacred” if you are using Basic. 

We will first equate and define our floating point variables, and then 
will equate the routine call addresses. 

;;Floating Point Variable Equates 


= $D4 ;6 byte floating point register 

FR1 = 5ЕО ;6 byte floating point register 

FLPTR = $FC ;2 byte pointer їо а FP number 
INBUFF= 8ЕЗ ;2 byte pointer to an ASCII text buffer 
CIX = $F2 ;1 byte index to buffer pointed in INBUFF 
LBUFF = $580 ;result buffer for conversions to ASCII 
;;Floating Point Routine Addresses 


AFP = $0800 ;ASCII to FP 

FASC = 508Е6 ;FP to ASCII 

IFP = $D9AA птедег to FP 

ЕРІ = $0902 ;FP to Integer 

FADD = $DA66 ;Add 2 FP Ғ5 & check if out of range 
FSUB = $DA60 ;Subtract 2 FP #’s & check if out of range 
FMUL = $DADB ;Multiply 2 FP #’s & check if out of range 
FDIV = $DB28 ;Divide 2 FP #’s & check if out of range 
LOG = $DECD ;natural logarithm 

(0610 = $DED1 ;base 10 logarithm 

EXP = $DDCO ;exponentiation base e 

EXP10 = $DDCC ;exponentiation base 10 

PLYEVL= $DD40 ;FP polynomial evaluation 

ZFRO = $DA44 ;zero out FRO 

ZF1 = $DA46 ;zero out FR1 


FLDOR = $DD89 ;load register FRO from X,Y pointer to FP 
FLDOP = $DD8D ;load register FRO from FLPTR pointer to FP 
FLDIR = $DD98 ;load register FR1 from X,Y pointer to FP 
FLD1IP = $DD9C ;load register FR1 from FLPTR pointer їо FP 
FSTOR = $DDA7 ;store from FRO by X,Y pointer to dest FP 
FSTOP = $DDAB ;store from FRO by FLPTR to dest FP 


FMOVE = $DDB6 ;move FP from FRO to FR1 
FUNCTION CALLING SEQUENCES 

The following will describe how to call some of the routines. Other 
routines are and their action is clear from their descriptions above. The 
more complex ones including exponentiation, logarithms, and polynomial 
evaluation are described in the Atari technical notes. 

ASCII to FP (AFP) 

In: 

INBUFF points to buffer with ASCII string. 

CIX is offset to 1st byte of ASCII string. 

After string place any non-numeric ASCII value. 


Out: 
Carry set if 1st ASCII number invalid. 
FRO = FP # 


CIX = buffer offset to 1st byte after ASCII string. 

Routine scans string until it reaches invalid byte. 

FP to ASCII (FASC): | 

In: 

FRO =: FP 

Out: 

INBUFF = pointer to 1st byte of ASCII string, last byte will have 
bit 7 set. 

Integer to ЕР (IFP) 

In: 

FRO = LSB of integer 

FRO+1 = MSB of integer 

Out: 

FRO = FP of integer 


FP to Integer (ЕРІ) 

In: 

FRO. = FP 

Out: 

Carry set if integer greater than 65535 or if FP is negative 
FRO = LSB of integer | 
ЕКО + 1 = MSB of integer 

Routine does true rounding in conversion. 

FP Add (FADD) 


In: 

FRO = FP 
FR1 = FP 
Out: 


Carry set if out of range 
FRO = sum FRO+FR1 
FR1 is altered 

FP Subtract (FSUB) 


In: 

FRO = minuend 
FR1 = subtrahend 
Out: 


Carry set if out of range 
FRO = result FRO-FR1 
FR1 is altered 

FP Multiply (FMUL) 


In: 

FRO = multiplier 
FR1 = multiplicand 
Out: 


Carry set if out of range 
FRO = product FRO*FR1 
FR1 is altered 

FP Divide (FDIV) 


In: 

FRO = dividend 
FR1 = divisor 
Out: 


Carry set if out of range or divide by zero 
FRO = quotient of FRO/FR1 


PC REPAIR 


Reprint: Foghorn, May 1986 

. . .Removing bad chips from a board can be difficult, but even more 
ftrustrating can be the problems you experience when you solder in a 
new part — seemingly making a perfect soldering job — and it won't 
work afterwards. 

Very often these days, the more complicated circuit boards are . 
“multi-layer”. They not only have conductors on the top and bottom of 
the board, where you can see the quality of your soldered connection, 
but also have more conductors inside the circuit board where you can 
see nothing, but suspect a lot! 

About 20 years ago a repairman taught me а tip which I have carried 
with me into the modern age. Those were the days when discrete 
components were soldered to metal lugs. Very often the factory wrapped 
the wires round the lug before soldering, creating something almost 
impossible to undo. The tip | was given was to not even try; just clip 
off the wires close to the body of the discrete resistor, capacitor or 
whatever, and use the wire stumps as new terminals around which to 
wrap the wires of the replacement part. 

| find it possible to use this tip in replacing integrated circuits as well 
as other modern parts. Just clip off the legs with a small, sharp cutter 
about halfway between the chip body and the circuit board. Use the 
cutter to slightly shorten the legs of the replacement chip, and sit the 
chip slightly offset from the old position so its legs lie against the leg 
stumps of the old chip. Now solder them one at a time to the stumps 
and you're done. 

It won't look beautiful, but this repair is faster because you never 
unsolder the old chip. This method is usually more reliable because you 
don't disturb the factory soldering job between the old legs and the 
multiple layers of the circuit board. Nor are you putting mechanical stress 
on the board which might crack it, as sometimes happens while pulling 
off old chips. 

In many cases there is enough clearance so the new chip can sit 
a little high compared to the others. This makes installation even easier. 
The only places this repair technique might fail is where the circuits 
operate at high enough frequencies to make the design sensitive to the 
chip leg dress, or where the quarters are so cramped as to leave no 
working space in the chip side of the board. 

— Alan Chattaway 


14 


ST KEYBOARD 


I have built a detached keyboard for the ST! It uses the original ST 
keyboard, original keyboard top cover (bearing the Atari 520 ST logo), 
and a few (new, but surplus) parts (see below). 

Hardly any electronics experience is needed for this project. Most 
of it depends on how well you can construct an enclosure for the 
keyboard. To me, the whole thing looks much classier: The plexiglass 
I bought is dark satin brown, and it contrasts perfectly with the ST's 
native color. So far, it has been in daily use for about 5 weeks without 
any problems. The coiled cord from the keyboard plugs into the “main” 
box, the mouse (and the joystick, when we have some need for it) plugs 
into the keyboard housing. If need be, it can be reassembled into the 
way it originally was, except for the saw cut made along the deep groove 
you find running along the entire width above the function keys and the 
520 ST logo. 

Connections: The keyboard plugs into the main board using an 
18-pin connector (J12). These pins are numbered 1 through 18, one 
Starting at the bottom (closest to the keyboard). Only five of these need 
go to the board; of the remaining 13 pins, one is a keyway (“ріп” 2 which 
is absent), pin 18 is unconnected, and eleven send/receive signals from 
the mouse/joystickO and joystick1 ports: 


Mouse J12 Joystick1 J12 
тез Furore „лаз LIGA Bee Ss ig left 3 
4rt/YB 4 8 right 4 
3-5 unconnected reservd 
Б 179 unconnected 


The main reasons | moved the DB-9s to the keyboard were: (1) | could 
not find a coiled cord with 16 conductors (I cannot stand external 
ribboncables); and, (2) I feel the mouse and keyboard should be close. 
Alas, a typical phone extension chord has only 4 conductors, and we 
need five: J12-16 % reset (generated on the main board) 


15 Tx Data (of U21 6850 ACIA) 
14 | Rx Data (of 021 6850 ACIA) 
13 +5V 1 ground 


Parts Needed: Coiled cord of sufficient length; min. 5 conductors: 
5-, or 6-pin DIN socket and plug; two DB-9s or one 18-pin plug; 0.1” pin 
Separation (can use a plug with more than 18 pins); one 18-pin socket 
(Can use up to 20-pin socket): and some scrap plexiglass sheets. 

Construction: Most of it is this “box” making with a few solder 
connections as indicated above. To instruct how to do the construction 
is so tedious that I am going to suggest the very obvious: Open up your 
ST, and carefully examine it until you discover your own way of doing 
it. Two cautionary remarks, however: The plexiglass enclosure should 
be constructed with precision. My wood-working imprecision made me 
ruin a couple of panels before | got everything accurate to within a 
millimeter! And the edges should be real Straight. Underneath the 
keyboard are a few chips; make sure you allow for them and do not make 
the keyboard rest physically on these. Have fun! 

— prabhaker matetidep! pm department of computer engineering 
& science pm, Case Western Reserve University, Cleveland, OH 44106 


DESIGN SUGGESTION 


XE (Reprint: Puget Sound Atari News) 

Are you a hardware hacker, looking for some place to add a couple 
of chips to your 8 bit computer? But you don’t want to add something 
which will make it incompatible with some future peripheral? 

Well, | have a suggestion for you. | have been in the process of adding 
memory, a real time clock, and several other items to my machine. These 
additions require several chips to be mapped into the computer. But 
finding a place to map the chip which will not interfere with some future 
device is difficult to find. My suggestion is to re-map one of the existing 
chips opening up a new open area for your own modifications. 

Many chips in the computer are selected using the minimum Circuitry 
required. For this reason, there is much unused memory in the $50000 
to $D7FF area. An example is the PIA chip. A quick examination of 
Mapping the Atari Revised, by lan Chadwick will reveal that the PIA chip 
occupies the area from $D300 to $D3FF. It also Says that locations of 
$D304 to $D3FF are repeats of locations $D300 to $D303. To operate 
the PIA only 4 locations are used. This leaves 252 locations potentially 
open to other uses in that area alone. 

Now, why re-map the chip, when there appears to be a couple of 
areas presently available? Well, another look at the Mapping the Atari 
Revised will show $D100-$D1FF is unused, as well as $D600-$D7FF. 
Mightn't it be easier to just use one of these other areas to add 
something? Then you will not have to modify the computer. Well, it might 
be. Now, the problem occurs if you want to attempt to remain compatible 
with any future peripherals. Hardware built to use the special features 
of the parallel bus will be already in the $D100-$D1FF region, so this 
is out. The $D600-$D7FF region is presently unused, but | expect 
commercial hardware designers will realize this area can be accessed 
from the parallel bus with no modifications to the computer. This area 
is very likely to be exploited in the future. 


In re-mapping a chip, you are making a hardware modification which 
is not able to be simulated from the outside of the computer. The mod 
should be save from software since the software is written using the 
Stated addresses for the devices and not the repeat locations. 

Ok, now which chip can | re-map? Are there any easy chips? Yes, 
| used the PIA example above since this is the one with which I am most 
familiar. I choose the PIA since there are two chip select lines on the 
chip which are not used. This means I can use some other circuit to 
disallow the chip from being accessed whenever the area $D304-$D3FF. 
In my modification I want to maintain the minimum select circuitry, so 
for reasons of simplicity, I break the area in half so I can have 128 bytes 
to play with. 

This mod only requires me to take the A7 line ard run it through 
an inverter and connect it to the unused chip select ‘пе(ѕ). My other 
chips can then be added by using the PIA chip select and combining this 
with the AO-A7 address lines to determine which is selected. In this case, 
if the A7 line is low the PIA chip is selected (like normal). If the A7 line 
is high, then my modification is selected. 

— Bill Penner (KCACES) 


DANGER 


XE (Reprint: Phoenix, April, 1986) 

This technical note is being written because so many of the memory 
expansion schemes I see being touted are NOT compatible with a 
standard 130XE. If you implement the memory expansion per most of 
these schemes, you will be missing one important feature of the 130XE: 
The ability to direct ANTIC to do its DMA to either main memory or the 
requested bank of memory. In a standard 130XE, clearing bit 5 to zero 
requests ANTIC to follow the bank switching; setting bit 5 to a one tells 
it to remain in main memory, no matter what memory bank was 
requested. 

This is an important feature! Mark Rose (also of OSS) and I will take 
credit for being instrumental in the creation of the function of this bit. 
When Atari asked us to do DOS 2.5 and its RamDisk, their prototype 
hardware had ANTIC following bit 4 along with the CPU. The most 
obvious problem with this is you can't use the extra banks for CPU 
purposes (e.g., RamDisk) when ANTIC is doing its DMA in the memory 
between $4000 and $7FFF. The problem was especially acute with 
AtariWriter (the 16k cartridge version), since its display memory is 
ALWAYS in this range. 

Actually, Mark and I found if you are ONLY using the bank select 
memory for a RamDisk, this si not an onerous restriction. It simply means 
pseudo-sector transfers only occur during vertical blank. In fact, DOS 
2.5 still has a flag in it which you can POKE which will tell it to only 
use extended memory during deferred vertical blank. 

Now, there is another hardware solution which we mentioned to 
Atari: Simply never allow ANTIC to use extended memory. We discussed 
the two options with Atari, and both they and we decided we felt strongly 
that the capability of bank selecting ANTIC's memory was important. 
Thus the use of that bit. 

So, if yuour 800XL hardware mod-works with the AtariWriter 
cartridge, then you obviously adopted that second hardware solution: 
Don't let ANTIC use extended memory. That is not a really terrible 
decision (especially if it is economically motivated), but it does mean 
that it is possible that some future 130XE software will not run on your 
modified machine. I already have at least one piece of software, written 
in ACTION!, which depends on the 130XE's method. But it's only an ultra- 
fast picture switching demo, so it's no big deal. 

There is a mod to both the 130XE and 800XL which maintains the 
130XE/ANTIC bank select capability. It is designed by [ACE member] 
Charles Andrews of Eugene, Oregon. He showed a 320XE using this mod 
at CES in January (in Atari's booth, as a courtesy to him by Atari — 
though it does appear to be an implicit endorsement of his scheme). I 
believe his method uses an entirely separate port for controlling the 
beyond-130XE extensions (in the $D6xx range, maybe?). However, | 
devised a method of doing the same thing using only Port B. The scheme 
is outlined in the following paragraph. 

A “еда!” 320XE: This mod depends on the fact that the diagnostic 
ROM area is only used at power up or by the self-test routines. At these 
times, both ANTIC and the CPU are using only main memory, so bits 
4 and 5 of $D301 are both set to one. Thus we change the “enable” 
of the diagnostics from the logic equation diag enable = not Би7 and 
bit4 and bit5. 

Then the enable for the extended RAM becomes RAM enable = 
(not bit4 or not__bit5) апа we can now use bits 6 and 7 for bank 
selection in the same manner other schemes use bits 6 and 5. The reason 
this works: Even if Atari ever changes the self-diagnostics so they check 
the extended RAM, they can't put that particular code in the ROM which 
overlays $5000-$57FF, because that's right in the middle of the RAM 


area they need to check! 
— Bill Wilkinson 
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Atari Computer Enthusiasts 

The ACE Newsletter is the first Atari user group newsletter to be 
published anywhere in the world. We began publishing in April, 1981. 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user group with no connection to Atari Corp. We are a group 
interested in educating members in the use of Atari computers and 
publishing the latest News, Reviews and Rumors. 

Ail our articles, reviews and programs come from you, our 
members. 

Our membership is world wide. Membership fees include the A.C.E. 
newsletter (10 issues per year) and high access in the A.C.E. Bulletin 
Board System. Dues are $14 a year for U.S., and $24 a year overseas 
airmail. 

Subscription Dept.: 3662 Vine Maple Dr., Eugene, OR 97405 
President — Dick Barkley, 2907 Wingate, Eugene, OR 97405 
(503) 344-5843 
Vice President — Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
(503) 686-1490 
8-Bit Librarian — Chuck & Jody Ross, 2222 Ironwood, Eugene, OR 
97401 
(503) 343-5545 
ST Librarian — Jim Bumpas, 4405 Dillard Road, Eugene, OR 97405 
(503) 484-4746 
Editors — Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 
(503) 344-6193 
Jim Bumpas, 4405 Dillard Road, Eugene, OR 97405 
(503) 484-4746 
Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
(503) 686-1490 
E.R.A.C.E (Education SIG Editor) — Nora Young, 105 Hansen Lane 
Eugene, OR 97404 / (503) 688-1458 
Send 50c stamps or coin ($1 overseas) to the Librarian for updated ACE 
Library lists. 
A.C.E. Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists 
of a 130 XE upgraded to 320k by Charlie Andrews, 2 double-density 
disk drives, and a 10-meg hard disk from Supra Corp, an Epson MX80 
printer, a 2400 US Robotics Courier modem, running the PD/M Bulletin 
Board software. 

Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the 
first issue, Oct. 1981 to June, 1982. 

Volume 2 contains July 1982 through June 1983. 

Only $12 each ($2 extra for airmail). Available only from George 
Suetsugu, 45-602 Apuapu St., Kanoehe, HI 96744. 
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3662 Vine Maple Dr. Eugene OR 97405 
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TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you.have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line: 
And it's easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


Editing & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder Index 
A composite index of Atari related articles in four popular computer 
periodicals, including the ACE Newsletter. Volume 1 covers April, 1981 
through June, 1983. Volume 2 covers July, 1983 through December, 
1985. Only $6 per printed copy or $11 per disk copy for ACE members. 
Available from: Jim Carr, 2660 S.W. DeArmond, Corvallis, OR 97333. 





